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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 

CHAPTER  I 
INTRODUCTION 


1.  Overview  of  the  ODSAS 


a.  The  ODSAS  employs  a linear  programlng-based  methodology  to 
determine  the  optimum  allocation  of  OPMD-managed*  officers  to  pairs 
of  Officer  Personnel  Management  System  (OPMS)  specialties.  The 
ODSAS  automated  Information  system  was  designed  in  the  second  phase 
of  a two  phase  study  sponsored  by  the  Office  of  the  Deputy  Chief  of 
Staff  for  Personnel  (ODCSPER),  HQ  DA,  and  conducted  by  the  US  Army 
Concepts  Analysis  Agency  (CAA).  The  first  phase  of  the  study 
entailed  determining  If  a feasible  methodology  could  be  formulated. 
In  August  1975,  a feasible  methodology  was  established;  this  meth- 
odology was  incorporated  in  a computer-based  information  system. 

b.  The  ODSAS  automated  Information  system  is  composed  of  a 
series  of  large  linear  programing  (LP)  problems.  Each  of  these 
LP  problems  Is  solved  sequentially  by  grade,  starting  with  a LP 
problem  for  the  allocation  of  colonels  to  the  OPMS  specialty  pairs. 
During  the  processing,  data  on  the  LP  solutions  are  available  for 
on-line  Inquiry  by  the  user.  Overall,  the  information  system  is 
designed  to  maximize  the  computer's  contribution  to  the  processing, 
control,  and  solution  and  analysis  of  the  LP  problem,  but  leaving 
interpretation  of  results  to  the  user. 

c.  The  system  Implementation  effort  was  accomplished  In  two 
phases.  First,  the  information  system  was  designed,  developed,  and 
tested  with  sample  data  on  the  UNIVAC  1108  computer  located  at  CAA. 
Second,  all  the  programs  and  necessary  runstreams  were  loaded  onto 
the  UNIVAC  1108  at  MILPERCEN  (System  2 was  designated  to  accommo- 
date the  ODSAS).**  Subsequently,  the  Input  files  with  real  data 
were  created  and  operational  testing  was  conducted  at  MILPERCEN. 


*0PMD  - Officer  Personnel  Management  Directorate 

**The  symbol  "0"  is  used  to  represent  the  digit  zero  whenever 
that  digit  could  be  confused  with  the  capital  letter  "0."  Except 
In  reproductions  of  computer  printouts  this  convention  applies 
throughout  the  remainder  of  this  documentation. 
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2.  Scope  of  Documentation 


a.  This  documentation  supplements  the  ODSAS  Study  Report  (CAA 
SR-76-6,  dated  April  1976).  Access  by  the  reader  to  that  report 
and  the  references  cited  therein  is  assumed.  Topics  fully  discussed 
In  the  study  report  are  treated  only  briefly  in  this  documentation. 

b.  This  publication  Is  designed  as  a user's  manual  for  both 
analysts  and  computer  programers.  A minimum  working  level  knowl- 
edge of  the  UNIVAC  Exec  8 control  language  on  the  part  of  all 
users  is  also  assumed. 

c.  The  content  of  this  documentation  is  organized  into  chapters 
by  subject-matter  areas,  with  the  content  level  of  the  respective 
chapters  based  on  anticipated  needs  of  the  analyst  or  the  programer. 
Chapters  1 1 -V 1 1 are  designed  primarily  for  the  analyst  who  is  using 
the  ODSAS  methodology/information  system  to  aid  in  solving  OPMS 
problems.  Chapter  IX,  which  contains  catalogued  runstreams,  is  of 
Interest  to  both  the  analyst  and  the  programer.  Chapters  VIII,  X, 

XI,  and  XII  contain  the  detailed  information  necessary  to  maintain 
and/or  modify  the  computer  programs.  This  latter  information,  of 
primary  Interest  to  the  programer,  is  provided  in  the  form  of 
extensive  intraprogram  commentary  in  the  program  listings,  file 
descriptions,  and  control  runstream  listings. 

d.  Two  proprietary  software  packages  are  utilized  in  the  infor- 
mation system:  (1)  the  UNIVAC  Functional  Mathematical  Programing 

System  (FMPS)  and  (2)  the  Marshall  Information  Retrieval  and  Display 
System  (MIRADS).  Both  software  packages  are  documented  in  separately 
published  manuals.  Access  by  the  user  to  the  FMPS  programer 's 
reference  manual  (Reference  1),  MIRADS  Implementation  Manual  (Ref- 
erence 2),  and  MIRADS  User's  Manual  (Reference  3)  is  also  assumed. 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 

CHAPTER  II 

PREPARATION  FOR  ODSAS  PROCESSING 


1.  Purpose.  - The  purpose  of  this  chapter  is  to  provide  a 
description  and  an  Identification  of  the  types  of  Input  and  the 
user  decisions  required  to  use  ODSAS. 

2.  Types  of  Input 

a.  There  are  five  general  types  of  input  required  In  the 
system: 


(1)  Force  requirements. 

(2)  Management  policies  on  utilization  ratios  for  preferred 
specialty  pairings. 

(3)  Management  policies  on  tour  lengths  for  preferred 
specialty  pairings. 

(4)  Population  and  attrition/promotion  rate  data  applicable 
to  the  reference  starting  population. 

(5)  System  parameters . 

Each  of  these  types  of  Input  is  described  In  subparagraph  c,  below. 

b.  Source  of  Data  Types  and  Responsibility  for  Accuracy.  - 
Data  to  be  Input  to  the  ODSAS  system  are  collected  from  numerous 
Department  of  Army  personnel  agencies.  The  respective  agencies  are 
responsible  for  providing  current  and  accurate  data  as  indicated  in 
Table  II-l. 

c.  Description  of  Input,  by  Type 

(1)  Force  requirement  data  for  each  type  position  (e.g., 
Infantry  battalion  cpmmander)  Is  extracted  from  the  PERSACS  tape 
file.  Data  elements  for  each  type  position  include: 

(a)  Authorized  grade 

(b)  Primary  special ty 
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TABLE  1 1 - 1 , Data  Input  Responsibilities 


Data 

Source  of  data 

Responsible  organization 

Force  requirements 

PERSACS 

ODCSPER  (Authorizations 
Division) 

Utilization  ratios 

MILPERCEN 

Officer  Personnel  Management 
Directorate,  MILPERCEN 

Tour  lengths 

PERSACS 

ODCSOPS  (Force  Accounting 
Systems  Division) 

Population  and 
rates 

Officer  Master 
File 

Population  - Officer  Person- 
nel Management  Direc- 
torate, MILPERCEN 

Automatic  Inter- 
action Detector- 
Officers  (AID-0) 
and  Central 
Integrating  Model  - 
Officers  (CIM-0) 

Rates  - ODCSPER  (Officer 
Division) 

RCS  DCSPER  403 

- ODCSPER  (Officer 
Division) 

Parameters 

MILPERCEN 

Officer  Personnel 
Management  Direc- 
torate, MILPERCEN 

(c)  Alternate  specialty 

(d)  Effective  date  (date  the  position  was/will  be 

authorized) 

(e)  Termination  date  (date  the  position  will  be 
terminated,  if  any) 

(f)  Number  of  officer  spaces  authorized 

The  aggregate  requirements  by  grade,  primary  specialty,  and  year  are 
computed  in  the  initialization  phase  by  checking  each  PERSACS  record 
for  grade  and  primary  specialty  and  then,  after  determining  if  the 
PERSACS  termination  date  Is  the  same  as  or  later  than  the  year  of 
Interest  (for  example,  if  T0--the  starting  point  for  the  network--is 
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Input  as  the  end  of  fiscal  year  (FY)  1977,  and  the  termination  date 
Is  1977  or  after),  the  number  of  officer  spaces  authorized  Is  In- 
cluded for  the  appropriate  grade,  specialty,  and  year.* 


(2)  Data  records  on  management  policies  are  Input,  on 
cards,  by  preferred  specialty  pairs.  For  each  of  the  approximately 
600  preferred  specialty  pairs,  the  utilization  ratio  of  the  specialty 
pair  and  the  tour  length  of  the  primary  specialty  are  required  for 
the  grades  of  COL  through  MAJ  (utilization  and  tour  length  for  CPTs 
with  more  than  8 YOS  are  the  same  as  for  MAJs;  CPTs  with  8 or  less 
YOS  and  LTs  have  repetitive  assignments  in  the  primary  specialty). 
Each  card  contains  the  following  Information: 

(a)  Primary  specialty  number 

(b)  Preferred  alternate  specialty  number  for  the 
primary  specialty  of  (a),  above 


(c)  Utilization  ratio  for  COLs  in  the  primary  and 
preferred  alternate  specialty 

(d)  Tour  length  for  COLs  in  the  primary  specialty 

(e)  Utilization  ratio  for  LTCs  in  the  primary  and 
preferred  alternate  specialty 

(f)  Tour  length  for  LTCs  in  the  primary  specialty 

(g)  Utilization  ratio  for  MAJs  in  the  primary  and 
preferred  alternate  specialty 

(h)  Tour  length  for  MAJs  in  the  primary  specialty 


A preferred  specialty  pair  Is  required  in  each  of  the  field  grades. 
This  assures  a source  of  officers  with  specialties  "m"  and  "n"  to 
meet  future  requirements  in  those  specialties. 


(3)  The  starting  population  for  all  grades,  2LT  through 
COL,  must  be  described  by  a beginning  year  of  service  (BGNYOS) 


*The  ODSAS  methodology  (linear  programing  applied  to  a network 
flow  problem)  envisions  a network  constructed  to  represent  a span 
of  time.  In  yearly  increments.  T0  (time  zero)  Is  a base  year,  T. 
is  1 year  later,  and  so  on  to  T --an  arbitrary  number  of  years 
In  the  future.  For  a more  detailed  description  see  Chapter  II  of 
the  ODSAS  Study  Report  (reference  4). 
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indicating  length  of  service  of  the  most  junior  officer  in  that 
grade,  and  an  ending  year  of  service  (ENDYOS)  indicating  the  length 
of  service  of  the  most  senior  officer  in  that  grade.  A population, 
an  attrition  rate  that  Includes  promotion  to  the  next  higher  grade, 
and  an  attrition  rate  that  does  not  include  promotion  to  the  next 
higher  grade  are  required  for  each  year  of  service  In  the  interval 
BGNYOS  through  ENDYOS. 

(4)  Input  parameters  define  the  number  of  authorized  OPMS 
specialties  and  the  number  of  years  In  the  projection  period.* 

The  total  budget-authorized  strength  at  T™  for  each  officer  grade 
is  also  required.  Additionally,  if  any  or  all  of  the  field  grades 
are  to  be  segmented,  then  the  segmenting  instructions  must  be 
specified  along  with  the  additional  input  associated  with  segmenta- 
tion (i.e.,  designation  of  primary  specialties  to  be  Included  in 
the  first  subsegment,  upper  bounds  for  the  primary  specialties  and 
limits  on  degree  of  fill  In  alternate  specialties). 

3.  User  decisions . - There  are  four  types  of  decisions  that  the 

user  must  make  in  order  to  determine  appropriate  input  values  for 
parameters,  or  evaluate  if  resulting  output  from  the  initialization 
phase  is  appropriate. 

i 

a.  Problem  Segmentation.  - The  first  decision  concerns  para- 
meter values  that  aetermine  the  problem  size  for  unsegmented  proc- 
essing (number  of  years  in  the  projection  periods  (NYRS),  total 
number  of  authorized  OPMS  specialties  (NSPEC),  and  total  number  of 
preferred  specialty  pairings  (NPREF)).  An  estimate  of  the  LP  prob- 
lem sizes  can  be  determined  by  procedures  described  in  Appendix  E 
of  the  ODSAS  study  report.  Given  the  resultant  problem  size  esti- 
mates, the  user  can  then  decide  whether  the  segmentation-within- 
grade  option  should  or  must  be  selected.  For  example,  if  the  problem 
size  exceeds  the  computer  system  capacity,  the  decision  could  be  to 
decrease  the  parameter  values  and  run  unsegmented,  or  to  segment 


*The  ODSAS  is  designed  to  consider  as  many  as  50  OPMS  specialties 
and  up  to  a 9 year  projection  period.  These  are  design  limitations; 
however,  capacity  limitations  of  the  present  computer  hardware  and 
software  restrict  utilization  of  the  full  design  capability.  The 
degree  of  restriction  depends  upon  the  number  of  authorized  OPMS 
specialties  and/or  the  number  of  preferred  specialty  pairings  and/or 
the  desired  length  of  the  projection  period. 
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the  processing  of  the  field  grade  segments  (the  largest  ones).* 

The  sensitivity  analysis  on  the  segmentatlon-wlthin-grade  option 
(see  Chapter  V of  the  ODSAS  Study  Report)  should  be  considered  in 
arriving  at  a decision  on  problem  segmentation.  The  user  should 
be  cognizant  of  why  and  how  the  solutions  can  vary  between  the 
segmented-wlthln-grade  and  the  unsegmented  options. 

b.  Selection  of  Specialties  in  the  Subsegments,  and  Related 
Optional  Limits.  1 The  second  decision,  contingent  upon  selecting 
the  segmentatlon-wlthin-grade  option  (first  decision),  consists  of 
selecting  the  specialties  to  be  allocated  to  the  two  subsegments. 
Furthermore,  for  those  primary  specialties  in  segment  1,  an  upper 
bound  on  the  total  authorized  strength  must  be  established.  There 
Is  also  an  optional  Input  for  specifying  limits  on  the  degree  of 
fill  In  each  alternate  specialty  in  segment  1 and  a decision  must 
be  made  whether  to  employ  this  option.  As  stated  in  Chapter  V, 
Sensitivity  Analysis,  of  the  ODSAS  study  report,  the  choices  are 
critical  In  terms  of  comparability  of  answers  to  the  unsegmented 
processing  mode,  therefore,  this  decision  and  use  of  the  optional 
limits  should  be  carefully  considered. 

c.  Appropriateness  of  Rates.  - The  third  decision  relates  to 
the  appropriateness  of  the  computed  weighted  average  attrition  and 
promotion  rates  generated  from  user  input  in  the  initialization 
phase.  An  underlying  assumption  used  in  the  rate  computations  is 
that  rates  derived  from  past  experience  with  promotion  and  attri- 
tion by  grade  and  year(s)  of  service  (YOS),  are  valid  predictors 

of  future  promotion  and  attrition.  If  the  user  has  some  reason  to 
believe  that  past  conditions  might  not  hold  in  the  future,  then  a 
decision  Is  required  on  whether  the  rates  should  be  changed  (and 
by  what  amount)  or  If  the  solution,  with  the  original  rates,  should 
be  Interpreted  by  manually  applying  the  revised  rates  to  the  solution 
values  for  flows  in  the  network. 

d.  Selection  of  a Starting  Date.  - The  fourth  decision  relates 
to  the  choice  of  a date  representing  T_,  the  starting  point  of  the 
network.  Essentially,  any  date  can  be^speci fled  as  the  starting 


*In  the  operational  testing  of  ODSAS  in  March  1976,  as  an 
Individual  LP  problem  exceeded  6000  rows,  the  probability  that 
the  UNIVAC  hardware  and  software  would  not  accommodate  the  problem 
Increased  dramatically  (primarily  because  of  insufficient  core 
memory),  and  the  decision  was  made  to  utilize  the  segmentatlon- 
wlthin-grade  option  for  processing  the  LTC  and  MAJ  segments. 
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date,  with  the  decision  Influenced  by  the  years  to  be  included  in 
the  projection  period,  and  the  force  structure  to  be  specified. 
Normally  the  first  day  of  the  fiscal  year  following  a desired  FY 
Is  a logical  date  for  T«,  since  the  strength  of  that  date  reflects 
the  objective  end  strength  of  the  desired  FY  (e.g.,  if  the  desired 
Tg  strength  should  be  that  for  the  end  of  FY  78  (i.e.  780930),  then 
tne  starting  date  (T*)  selected  for  computation  of  force  structure 
requirements  should  Be  781001). 
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OFFICER  DUAL  SPECIALTY  ALLOCAT ION  SYSTEM 
(ODSAS) 

CHAPTER  III 

AUTOMATED  INFORMATION  SYSTEM 


1.  Purpose.  - The  purpose  of  this  chapter  Is  to  describe  the 
overall  design  of  the  automated  information  system,  and  how  that 
design  was  implemented  via  commercial  software  (FMPS),  software 
from  other  government  agencies  (NASA's  MIRADS),  and  original  pro- 
grams written  at  CAA. 

2.  System  Design 

a.  General . - In  August  1975,  the  ODSAS  Study  Advisory  Group 

approved  the  methodology  described  in  Chapter  II  of  the  ODSAS  Study 
Report  and  directed  that  the  methodology  be  Incorporated  in  a 
computer-based  Information  system  consisting  of  computational  and 
data  processing  components  and  associated  data  elements.  The 
following  overall  design  concepts  were  used  in  developing  the  auto- 
mated system: 

(1)  Divide  the  system  functionally  such  that  the  capability 
to  specify  and  solve  the  linear  programing  problems  be  Implemented 
in  components  separate  from  supportive  activities  (e.g.,  editing  of 
data) . 

(2)  Utilize  high-speed  computer  disc  storage  devices  for 
input  and  output  of  data. 

(3)  Retain  the  solutions  in  a machine-readable  form  for 
analysis— wi th  computer  printing  to  be  on  a selective  basis. 

Having  established  the  overall  design  concepts,  the  functional  divi- 
sions were  identified  and  the  appropriate  computer  programs  to 
accommodate  them  were  developed.  These  programs  (source  listings 
in  Chapter  XII  of  this  manual)  were  combined  to  become  the  ODSAS 
system--a  system  that  the  user  could  control  easily. 

b.  Procedural  Functions  Included.  - To  implement  the  ODSAS 
methodology  on  the  UN  I \/AC  1108  computer,  applications  programs  were 
developed,  or  incorporated,  for  the  following  functions: 

(1)  Computation  of  attrition  and  promotion  rates  for  each 

grade. 
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(2)  Creation  of  edited  input  data  files  for  all  system 
segments. 

(3)  Generation  of  linear  equations  for  each  segment. 

(4)  Solution  of  the  linear  equations--UNIVAC 's  Functional 
Mathematical  Programming  System  (FMPS)  level  6. RIB,  a standard 
program  product  that  includes  procedures  for  solving  linear  pro- 
graming (LP)  problems,  was  selected  for  this  function. 

(5)  Specification  of  FMPS  procedures  to  control  the 
processing  while  obtaining  a solution  (e.g.,  specifying  actions  to 
take  upon  encountering  error  conditions,  or  identifying  information 
to  be  output). 

(6)  Linkage  of  one  segment  or  subsegment  to  another  (e.g., 
updating  files  to  reflect  solutions  of  previous  segments). 

(7)  Interpretation  of  linear  program  solutions  and  produc- 
tion of  management  reports. 

c.  System  Phasing.  - The  automated  information  system  devel- 
oped for  ODSAS  is  comprised  of  an  initialization  phase  and  a process 
1 ng  phase.  In  the  initialization  phase,  the  functions  listed  in 
subparagraphs  b ( 1 ) and  (2)  above  are  accomplished.  The  initializa- 
tion phase  is  executed  only  once.  The  processing  phase  accomplishes 
the  functions  in  subparagraphs  b(3)  through  b(7).  The  processing 
phase  is  repeated  for  each  grade  segment  or  subsegment  specified 
by  the  user.  Segmentation-wi thin-grade , if  selected,  requires  mod- 
ification to  one  input  file  containing  user-suppl ied  segmentation 
instructions.  Based  upon  those  segmentation  instructions,  the 
appropriate  linear  equations  are  generated  for  the  grade  segment 
or  subsegment  specified. 

(1)  The  Ini  tialization  Phase.  - At  Figure  II I -1  is  a 
system  flow  chart  of  the  initialization  phase.  As  shown,  there 
are  four  user-supplied  input  data  files  needed  for  the  ODSAS  file 
creation,  data  editing,  and  rates  computation  procedures.  The 
results  of  those  procedures  are  output  as  four  computer  disc  files 
and  two  printed  reports. 

(a)  Initialization  Phase  Input.  - The  input  data 
comes  from  three  sources . Those  sources  and  format  of  all  the  data 
contained  in  the  input  files  are  described  in  Chapter  IV  of  this 
documentation. 
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FIGURE  III-l,  ODSAS  Automated  Information  System,  Initialization 
Phase 


1_.  The  first  input  file  (labeled  Input  1 on 
Figure  1 1 1 - 1 ) contains  the  policy  (official  or  test)  on  the  utili- 
zation ratios  and  tour  lengths  (in  all  grades)  for  preferred  spec- 
ialty pairs. 

2_.  Input  2 is  the  Personnel  Structure  and  Composi- 
tion System  (PERSACS)  data  file  of  present  and  future  requirements 
by  grade  and  specialty. 


3i.  Input  3 is  the  specification  of  system  para- 
meters that  help  determine  what  size  problems  will  be  solved  and 
how  they  will  be  solved  (e.g.,  the  number  of  years  to  project  and 
segmentation  instructions).  This  file  also  contains  the  data  values 
needed  to  control  the  Input  to  the  network  (i.e.,  total  number  of 
officers  authorized  by  grade  and  specialty). 

4_.  Input  4 contains  historical  attrition  rates 
and  population  data,  by  YOS,  applicable  to  the  officer  population 
that  existed  during  the  past  year.  Attrition  and  promotion  rates, 
for  future  years  are  derived  from  this  data. 

(b)  Ini ti all zati on  Procedures  . - Five  computer  pro- 

grams perform  the  data  editing,  file  creation,  and  rate  computations 
(see  paragraph  3 below  for  detailed  flow  charts;  program  narratives 
are  In  Chapter  XI).  One  program  edits  user-supplied  input  data  on 
preferences,  utilization  ratios,  and  tour  lengths  and,  if  the  data 
satisfies  programed  edit  checks,  produces  the  specialty  preferences 
file  (Output  1).  Three  programs  are  employed  to  select  and  edit 
the  data  from  the  PERSACS  tape.  One  of  these  three  programs  also 
provides  for  adjustment  of  certain  obsolete  data  (i.e.,  the  PERSACS 
input  file  still  contains  some  obsolete  specialty  numbers--a  con- 
dition that  will  eventually  disappear  when  conversion  of  the  PERSACS 
file  to  OPMS  specialty  designations  is  completed).  Adjustment  is 
effected  by  reallocation  of  requirements  for  nonstandard  specialties 
into  requirements  for  valid  specialties,  according  to  predefined 
rules  established  by  ODCSPER.  The  positional  requirements  file  and 
report  (Outputs  2 and  6,  respectively)  are  also  produced.  The  fifth 
program  performs  the  rate  computations  (explained  in  Appendix  D of 
ODSAS  Study  Report)  and  writes  out  these  rates  to  the  appropriate 
file  (Output  3).  The  third  program  also  produces  the  input  parameter 
file  needed  for  the  first  segment  (Output  4)  and  the  attrition  and 
promotion  rates  report  (Output  5). 

(c)  Initialization  Phase  Outputs.  - As  a result  of 
the  initialization  procedures,  output  disc  files  (numbered  1 through 
4 in  Figure  1 1 1 - 1 ) are  produced.  The  files  are  described  in  Chapter 
VIII,  Computer  Disc  and  Tape  File  Descriptions,  and  the  reports  in 
Chapter  V,  ODSAS  Printed  Output. 

1.  Output  1,  the  specialty  preference  file,  con- 
tains the  utilization  ratios  and  tour  lengths  of  all  preferred 
specialty  pairings,  for  ell  grades,  arranged  within  grade  and 
specialty. 

2.  Output  2 contains  the  positional  requirements 
(i.e.,  requirements  derived  from  the  PERSACS  input  for  all  grades 
and  specialties  in  the  years  of  the  projection  period). 
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.3.  Output  3 contains  the  computed  attrition  and 
promotion  rates  for  each  grade,  per  year  of  the  projection  period. 

4..  Output  4 contains  all  the  parameters  and  rates 
needed  as  Input  for  the  processing  of  the  first  segment.  The  Input 
files  for  the  subsequent  segments  are  produced  In  the  processing 
phase  as  they  are  needed. 

(d)  Reports . - The  two  printed  reports  (Outputs  5 

and  6 of  Figure  II’l-l)  are  for  verification  and  retention  by  the 
user.  The  reports  display  the  results  of  computation  of  the  attri- 
tion and  promotion  rates  and  the  requirements  by  grade,  specialty, 
and  year.  Examples  of  the  reports  are  shown  in  Chapter  V. 

(2)  The  Processing  Phase 

(a)  General . - Figure  1 1 1 -2  is  a system  flow  chart 

of  the  processing  phase.  The  processing  phase  Is  comprised  of  five 
major  activities,  the  five  blocks  Indicated  by  the  dashed  lines  In 
Figure  III-2. 


1_.  Major  activity  1,  the  matrix  generator, 
produces  the  LP  equations  in  FMPS  format. 

2.  Major  activity  2,  FMPS  solution,  solves  the 
equations  and  provides  selected  solution  data  for  subsequent  use. 

3.  Major  activity  3,  data  base  creation,  creates 
the  Input  files  an?  loads  them  on  to  the  data  base. 

4_.  Major  activity  4,  an  on-line  inquiry  system, 
permits  the  user  to  evaluate  system  output  during  processing. 

El  Major  activity  5,  linkage,  connects  one  seg- 
ment or  subsegment  to  the  next,  to  provide  continuity  of  processing. 
The  processing  phase  Is  done  at  least  five  times  (once  for  each 
grade--C0L  through  LT).  If  the  segmentation-wi thin-grade  option  is 
selected  for  any  of  the  field  grades,  up  to  three  additional  itera- 
tions of  the  processing  phase  would  be  required  (one  for  each  grade 
segment) . 
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FIGURE  1 1 1 -2 , ODSAS  Automated  Information  System,  Processing  Phase 

(b)  Description  of  Major  Activities 

1_.  Matrix  Generator.  - The  matrix  generator, 
major  activity  1,  is  depicted  at  Figure  II 1-3.  Accessing  data  on 
files  created  in  the  initialization  phase,  the  matrix  generator 


r i 


programs  produce  an  equation  file  organized  according  to  the  stand- 
ard format  of  UNIVAC's  FMPS.  Another  file  of  selected  data  on  the 
constraints  and  variables  is  also  produced.  Data  in  the  latter  file 
will  become  part  of  the  records  in  the  data  base.  A statistical 
report  Is  the  third  output,  containing  information  on  the  network 
structure  and  capacities  and  the  characteristics  of  the  linear 
program  to  be  solved  (e.g.,  number  of  constraints,  number  of  varia- 
bles). An  example  of  the  statistical  report  is  shown  in  Chapter  V. 

2_.  FMPS  Solution.  - The  functions  of  FMPS, 
major  activity  2,  are  shown  In  Figure  1 1 1-4.  The  FMPS  accepts  the 
equation  file  (output  of  the  matrix  generator)  as  input,  and  solves 
the  linear  program  with  the  FMPS  software  and  a user-defined  set  of 
implementing  Instructions  (i.e.,  FORTRAN-like  FMPS  source  statements). 
The  output  is  composed  of  three  data  files.  One  file  is  the  standard 
FMPS  printed  solution  and  postoptimali ty  analysis  output  that  can 


FIGURE  III-4,  FMPS,  Processing  Phase  Major  Activity  Number  2 
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be  printed,  selectively,  on  a high-speed  printer  or  analyzed  with  a 
text  editor  via  a computer  terminal.  The  other  two  files  contain 
selected  data  Items  on  the  constraints  and  variables  In  the  LP 
problem;  one  file  supplies  data  to  the  data  base  and  the  other  file 
passes  Information  on  filled  officer  requirements  to  the  linkage 
activity,  so  that  the  requirements  In  the  next  grade  segment  ini- 
tially reflect  only  unfilled  requirements. 

2-  Data  Base  Creation.  - The  third  major 
activity  of  the  processing  phase  (Figure  1 1 1 -5 ) involves  accessing 
Information  from  two  of  the  files  produced  In  the  first  and  second 
major  activities,  along  with  a file  of  the  cumulative  results  of 
any  previous  system  segments.  The  cumulative  data  base  file  Is 
first  copied  to  a work-file  for  two  reasons: 


FIGURE  III-5,  Data  Base  Creation,  Processing  Phase  Major  Activity 
Number  3 
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a_.  If  the  segment  results  are  unacceptable 
as  determined  by  the  user  during  major  activity  4,  then  the  actual 
cumulative  file  up  to,  but  not  including,  the  current  segment  is 
not  updated,  and  will  be  available  when  the  current  segment  is 
processed  again. 

b^.  The  cumulative  results,  to  include  the 
current  segment,  can  be  evaluated  on  the  work-file  without  Inhibit- 
ing further  processing  of  the  system. 

The  two  files  from  the  first  and  second  major  activities  are  com- 
bined to  produce  a data  base  of  information  on  the  current  segment. 

A temporary  file  (a  copy  of  the  cumulative  results)  is  also  updated 
to  produce  a cumulative  data  base  that  includes  the  current  segment 
results.  The  Marshall  Space  Flight  Center  Information  Retrieval 
and  Display  System  (MIRADS)  (references  2 and  3)  Is  used  to  load 
the  data  base  and  prepare  the  information  for  the  on-line  Inquiry 
conducted  In  the  fourth  major  activity.* 

£.  On-Line  Inquiry.  - The  fourth  major  activity 
(Figure  1 1 1 -6 ) involves  using  MIRADS  query  language  to  interrogate 
the  several  data  bases  developed  in  the  system.  Each  officer  seg- 
ment can  be  evaluated  separately,  and  information  on  the  cumulative 
results  can  also  be  retrieved.  Several  standard  sets  of  query 
language  statements  (described  in  paragraph  11,  Chapter  VI)  were 
prepared  for  implementation  by  the  ODSAS  user.  Based  upon  the 
user's  evaluation  of  the  cumulative  solutions,  two  options  are 
aval  1 able--accept  the  cumulative  results,  or  reject  the  current 
segment's  solution.  If  the  first  option  is  selected,  then  the 
actual  cumulative  results  file  is  updated  by  copying  the  work  file 
to  it  and  proceeding  on  to  major  activity  5.  If  the  second  option 
Is  selected,  the  user  changes  policies  and/or  parameters  ( e . g . , 
compos- tion  or  number  of  preferences)  and  the  appropriate  files  are 
updated  to  reflect  the  change  via  the  update  procedure,  whereupon 
the  processing  phase  for  the  current  segment  is  begun  again. 

5^.  Segment  Linkages.  - Once  the  current  segment 
Is  accepted  by  the  user,  the  fifth  major  activity  (Figure  1 1 1 -7 ) 
can  begin.  The  linkage  activity  uses  the  solution  results  from  the 


*MIRADS  is  a software  package  that  was  developed  for  the 
National  Aeronautics  and  Space  Administration  (NASA)  by  Computer 
Sciences  Corporation  for  use  on  UNIVAC  1108  computers  and  was 
furnished  free  of  charge  to  CAA  and  MILPERCEN. 
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FIGURE  1 1 1 -6 , On-Line  Inquiry,  Processing  Phase  Major  Activity  Number 


current  segment  and  computes  how  many  requirements  remain  to  be 
filled  by  subsequent  segments.  A new  input  file  is  created  for 
the  next  segment  in  sequence  and  the  requirements  file  is  updated 
to  reflect  the  unfilled  requirements  through  the  current  segment. 
The  next  step  Is  to  begin  the  processing  phase  again  by  performing 
major  activity  1 with  the  next  segment,  or  subsegment,  in  sequence. 
The  processing  phase  Is  repeated  until  the  final  (LT)  segment  is 
satisfactorily  completed. 


FIGURE  III-7,  Linkage,  Processing  Phase  Major  Activity  Number  5 


3.  Discussion  and  Flow  Charts  for  Initialization  Phase.  - The 
initialization  phase  is  depicted  in  figure  1 1 1 - 1 as  a single  pro- 
cedure block  ( 1 . e . , Initialization  procedures).  However,  the 
several  functions  indicated  within  that  block  (i.e.,  File  creation, 
Data  editing,  and  Rate  computations)  are  actually  accomplished  by 
five  CAA  written  programs  (SACSEXTRACT , SACSPREPRO,  SACSCREATE, 
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TOURATIOS,  and  INITIAL)  that  are  structured  into  three  catalogued 
runstreams  (PFCAA.SACS,  PFCAA.TOUR,  and  PFCAA. INITIAL)  and  one  run- 
stream  In  card  form. 

a.  The  latter  runstream  (illustrated  at  the  top  of  the  flow- 
chart in  Figure  III -8)  is  used  on  a computer  system  in  MILPERCEN 


Note:  The  portion  of  the  runstream  above  the  dashed  line  is  in  card- 

deck  form  end  processed  on  System  3 at  MILPERCEN 


ISACSTAPE)  \U\ 


9-trach . 800  BP  I tape(s) 
furnished  by  USAMSSA. 
recording  mode  is  EBCDIC 


rTape  reel  njabers 


Number  of  tapes 


Extracts  officer 
requirements  for 
grades  0-2  throuqh 
0-6 


This  prooram  is  executed 
on  System  4 to  translate 
EBCDIC  to  FIEIDATA 


ffile  name:l 
1LA£  STAFF  Ol'rt 


9-track.  1600  BP T tape 
furnished  by  user,  recording 
mode  is  FIELDATA 


Runstream  Name  PFCAA.SACS  I 

Exec  8 conmand  to  initiate  the  run  9START  PFCAA.SACS 


FIGURE  III -8 , Structure  of  Runstream  PFCAA.SACS 
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with  a hardware  tape  translation  capability  (translates  800  BPI 
EBCDIC  tapes  to  1600  BPI  FIELDATA  for  use  on  System  2).  The  input 
tapes  (SACSTAPE1  and,  If  required,  SACSTAPE2)  are  furnished  by 
USAMSSA  and  contain  requirements  data  for  all  grades.  SACSTAPE2 
Is  a continuation  of  the  data  on  SACSTAPE1  and  is  required  only 
when  there  is  too  much  data  to  be  contained  in  a single  tape.  The 
parameter  cards  Input  to  the  SACSEXTRACT  program  specify  the  number 
of  tapes  to  be  Input  and  the  identifying  tape  reel  number(s).  The 
SACSEXTRACT  program  extracts  COL  through  LT  data  and  writes  it  to 
a 1600  BPI  tape  (SACSTAPEOUT)  that  can  be  read  on  System  2. 

b.  The  catalogued  runstream,  PFCAA.SACS  (see  lower  half  of 
Figure  III-8),  provides  for  input  of  the  1600  BPI  requirements  data 
tape  and 


(1)  edits  the  data  and  writes  the  edited  requirements  data 
to  a temporary  file  (ODOUTUD01). 

(2)  computes  the  annual  requirements  for  each  specialty  by 
determining  for  each  requirement,  the  grade,  specialty,  and  the 
years  in  which  the  requirement  will  exist. 

(3)  provides  for  printing  the  positional  requirements 
report,  to  be  reviewed  by  the  user. 

(4)  produces  a disc  file  (ODSAPUD10)  of  the  computed  re- 
quirements. When  the  requirements  report  is  verified  by  the  user, 
ODSAPUD10  can  be  copied  to  ODSACUD02  (via  EXEC  8 command),  and 
ODSACUD02  will  become  the  new  master  positional  requirements  file. 

c.  The  second  catalogued  runstream,  PFCAA.TOUR  (flow  chart  is 
at  Figure  III-9),  provides  for  creating,  or  updating,  the  specialty 
preferences  file,  ODRATUD01.  The  utilization  ratios  for  each  pre- 
ferred specialty  pair  and  the  tour  length  for  each  specialty  in  each 
grade  should  first  be  loaded  onto  file  ODTURUD01  (if  ODRATUD01  is 
to  be  updated,  then  only  corrections  should  be  loaded  to  ODTURUD01). 
The  loading  can  be  done  directly  through  a demand  terminal,  or  by 
first  punching  the  data  into  cards  and  then  submitting  the  input 
card  deck  with  appropriate  control  cards  as  a batch  job.  Two 
parameter  cards  are  also  Input  — the  first  card  identifies  whether 
the  specialty  preferences  file  is  to  be  updated  or  created,  and  the 
second  identifies  those  specialties  that  may  not  be  designated  as 
alternates  (currently,  infantry,  armor,  field  artillery,  and  air 
defense  artillery  can  not  be  alternate  specialties).  If  the  word 
UPDATE  is  in  the  first  card,  then  the  previously  created  specialty 
preferences  file  (ODRATUD01)  is  updated  by  the  correction  cards; 
otherwise,  a new  ODRATUD01  is  created.  The  TOURATIOS  program 
converts  the  utilization  ratios  expressed  as  decimals  to  ratios 
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FIGURE  1 1 1 -9 , Structure  of  Runstream  PFCAA.TOUR 


between  two  Integers  (0.75  converts  to  3:1),  and  places  the  ratios 
(3:1  stored  as  31)  in  an  internal  array  (a  50  x 50  matrix)  that 
relates  primary  and  alternate  specialty  pairs.  A prohibited 
alternate  specialty  is  coded  uniquely  in  the  internal  arrays  (utili- 
zation ratio  of  88),  and  all  other  possible  specialties  (those  not 
specifically  mentioned)  are  coded  as  99.  Specialties  coded  88  and 
those  coded  99  are  treated  as  invalid  specialty  pairs. 

d.  The  third  catalogued  runstream,  PFCAA. INITIAL  (illustrated 
in  the  chart  in  Figure  1 1 1 -10 ) , provides  for  creating  the  files  of 
input  parameters  and  rates  used  in  all  the  system  segments.  The 
input  parameters  for  all  segments,  and  attrition  rates  and  popula- 
tion data  for  a reference  population  are  input  via  the  ODR8SUD01 
file.  The  weighted  average  attrition,  promotion,  and  retention 
rates  (for  CPTS  with  8 YOS)  are  computed  for  a 9-year  projection 


A 
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FIGURE  III-10,  Structure  of  Runstream  PFCAA. INITIAL 


period.  The  weighted  average  rates  are  stored  by  grade  and  projec- 
tion year  on  file  ODPOPUD01.  The  calculations  for  each  rate  are 
displayed  on  the  Attrition  and  Promotion  Rates  report.  The  input 
parameters  are  assembled  in  the  order  in  which  they  will  be  needed 
to  run  each  ODSAS  segment,  and  are  placed  on  file  ODINPUD02.  The 
attrition  and  promotion  rates  for  grade  6 are  also  placed  in 
ODINPUD02,  such  that  it  contains  all  the  data  needed  to  start  ODSAS 
processing.  At  the  beginning  of  ODSAS  processing,  ODINPUD02  is 
copied  to  ODINPUD01,  and  thereafter  the  latter  file  is  updated  at 
the  completion  of  each  segment.  Thus,  ODINPUD02  is  the  master  file 
that  can  be  used  to  restart  ODSAS  from  the  beginning,  without 
repeating  all  the  initialization  procedures. 

4.  Discussion  and  Flow  Charts  for  Matrix  Generator  Activity.  - 
At  the  system  flow  chart  level  (Figures  1 1 1 -2  and  1 1 1 - 3 above),  the 
matrix  generator  is  represented  by  one  procedure  block;  however, 
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there  are  actually  one  main  program  (an  executive  controlling  pro- 
gram) and  32  subroutines  or  functions. 


a.  A system  flow  chart  of  the  matrix  generator  activity,  which 
Includes  the  actual  data  file  names  (as  described  In  Chapter  VIII) 
used  In  the  EXEC  8 runstream,  Is  shown  In  Figure  III-ll.  For  the 
Input  files,  the  file  name  ODINPUD01  corresponds  to  the  Input 
parameters  file;  ODRATUD01  corresponds  to  the  specialty  preferences 
file;  and  ODSACUD01  corresponds  to  the  positional  requirements  file, 


FIGURE  III-ll,  Matrix  Generator  Flow  Chart  with  Internal  File 
Names  Specified 


as  shown  In  Figure  1 1 1 -3 . For  the  output  files,  the  file  name 
ODEQAUD01  corresponds  to  the  equation  file,  and  ODSAPUD04  corres- 
ponds to  the  file  of  selected  coefficients  for  the  data  base  records , 
also  shown  in  Figure  1 1 1 -3 . 


b.  The  32  sub^outines/functions  are  organized  along  lines 
relating  to  the  Input  format  required  by  FMPS  and  the  peculiarities 
of  the  methodology  developed  for  each  grade  segment.  Thus,  there 
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are  four  different  combinations  of  subroutines  to  produce  the 
necessary  input  file  for  the  system  segments  for  COL,  LTC , MAJ , CPT, 
and  LT . The  flow  charts  remain  unchanged  even  when  the  segmentati on- 
withln-grade  option  Is  selected  for  any  of  the  field  grade  segments; 
the  Internal  logic  In  the  subroutines  and  supporting  functions  cause 
the  appropriate  Input  needed  for  subsegment  1 or  2 to  be  generated. 
The  identification  of  the  subroutines,  and  the  calling  sequence 
within  each  grade  segment,  for  generating  the  linear  equations  for 
the  FMPS  programs  are  shown  in  Figures  1 1 1 -12  through  1 1 1 -1 5 . At 
the  completion  of  the  processing  in  each  major  subroutine,  control 
returns  to  the  MAIN  program,  where  the  instructions  for  the  next 
subroutine  to  be  called  are  located.  The  numbers  at  the  lower  left 
of  the  procedure  blocks  In  the  flow  charts  Indicate  references  to 
minor  supporting  functions  or  subroutines.  The  identifying  number, 
name,  and  purpose  of  each  of  the  supporting  functions  or  subroutines 
are  described  in  Table  1 1 1 - 1 (source  listings  are  in  Chapter  XII). 
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Main  control  program  - specifies 
subroutine  calling  sequence 


Reads  ell  data  from  Input  parameters, 
positional  requl rements , and  pre- 
ferred specialties  files  and 
Inltlatlres  all  Internal  arrays 


Defines  type  and  name  of  each  flow 
conservation,  node  capacity,  control 
of  Input,  and  the  flow  control 
constraints  for  consecutive  tours 


Defines  constraints  for  key  arc 
relatlonsnips 


Plots  the  paths  for  X arcs,  and 
thereby  Identifies  remaining  flow 
control  constraints  on  the  X arcs 


Identifies  redundant  flow  control  constraints 
for  x arcs,  thereby  defining  fne  required  set 
of  those  constraints,  'he  optional  report 
containing  the  Internal  program  arrays  derived 
for  f low  control  is  also  produced 


Produces  matrix  generator  statistical 
summary  report  and  serves  as  an  Inter- 
mediate control  program  which  determines 
whether  subroutines  L0C01S,  LOCOlC  or 
L0C01L  should  be  called 


Defines  the  XWfnn,  W0  n m (nfm)  and 
X_n  m (n«m)  variables  and  coefficients 
In  The  appropriate  constraints  for 
FMPS  COLUMN  chapter  Input 


Defines  the  X_n_m  (nfm)  variables,  as 

well  as  XN 'variables  and  coefficients 

In  the  appropriate  constraints  for  FMPS 
COLUMN  chapter  Input 


FIGURE  1 1 1 - 12 , Flow  Chart  of  Matrix  Generator  Activity  for  the 
Colonel  Segment  (continued  on  next  page) 
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FIGURE  1 1 1 - 12 , Flow  Chart  of  Matrix  Generator  Activity  for  the 
Colonel  Segment  (concluded) 
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FIGURE  1 1 1 - 13 , Flow  Chart  of  Matrix  Generator  Activity  for  the 
Lieutenant  Colonel  and  Major  Segments  (continued 
on  next  page) 
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Defines  the  transition  of  promotee 
flows  from  X arcs  to  » arcs  at  time 
of  promotion 


Intermediate  control  program  to 
determine  which  program  is  needed 
to  define  i arc  variables 


Defines  all  1 arc  variables  in  ITC 
and  MAJ  segments  and  V m n (m^n) 
variables  for  IT  segment  and  coef- 
ficients In  the  appropriate  constraints 


Defines  the  b-vector  coefficient  (the 
rlgh*  hand  Side)  of  the  IP  problems  for 
node  requirements . control  of  Input,  and 
key  arc  relationship  constraints  (all  other 
type  constraints  have  a b-coef f 'c lent  value 
of  /eroi  therefore,  they  do  not  have  to  be 
specified)  Writes  the  fMPS  RHS  Input 


Defines  lower  limit  for  relationship 
between  w arcs  with  the  same  specialty 
numbers  Writes  the  FMPS  RANGE  chapter 
Input 


Oeflnes  the  upper  bounds  for  selected 
variables  and  writes  the  fMPS  BOUNDS  chapter 
Input 


Creates  data  masks  used  in  TMPS  LOADL 1ST 
procedure  *o  select  data  from  solution  for 
output  to  Hies  used  in  data  base  creation 
and  segment  linkage  major  activities  In 
00SA5  processing  phase 


Sorts  the  selected  W arc  data  produced  for 
the  current  segment  data  base  files 


Sorts  the  selected  X and  f arc  data  produced 
for  the  current  segment  data  base  files 


FIGURE  1 1 1 - 13 , Flow  Chart  of  Matrix  Generator  Activity  for  the 
Lieutenant  Colonel  and  Major  Segments  (concluded) 
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FIGURE  1 1 1-14,  Flow  Chart  of  Matrix  Generator  Activity  for  the 
Captain  Segment  (continued  on  next  page) 


Main  control  program  - specifies 
Subroutine  calling  sequence 


Reads  all  data  from  Input,  positional 
requirements,  and  preferred  specialties 
files,  and  Initializes  all  internal 
arrays 


Oeflnes  type  and  name  of  each  flow 
conservation,  node  capacity,  control 
of  input,  and  the  flow  control  constraints 
for  consecutive  tours 


Defines  flow  control  constraints  for 
T arcs 


Produces  matrli  generator  statistical 
sumnary  report  and  serves  as  an  Intermediate 
control  program  which  determines  whether  sub- 
routines LOCOtS,  L0C01C  OR  lOCOLl  should  be 
called 


Defines  '999,  I _m  n (m-n),  f_m_n  (m-n) 
variables  and  coefficients  in  appropriate 
constraints 


Intermediate  control  program  for  determining 
which  program  is  needed  to  define  T arc 
variables 


Defines  all  » arc  variables  in  the  ITC  and 
HAJ  segments  and  t m n (m^nl  variables 
for  IT  segment  and  coefficients  in  the 
appropriate  constraints 


Defines  the  b-vector  coefficient  (the  right 
hand  side)  of  the  LP  problems  for  node  re- 
quirements. control  Of  Input,  and  key  arc 
relationship  constraints  (all  other  type 
constraints  have  a b-coeff iclent  value  of 
zero,  therefore,  they  do  not  have  to  be 
specified)  Writes  the  FNP$  RH$  chapter 
Input 


FIGURE  II 1-15,  Flow  Chart  of  Matrix  Generator  Activity  for  the 
Lieutenant  Segment  (continued  on  next  page) 
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TABLE  III-l,  Identification  of  Minor  Supporting  Functions  or 

Subroutines  Used  in  Matrix  Generator  Activity  Flow 
Charts  (continued  on  next  page) 


Identifying 

number 

Function/ 

subroutine 

name 

Description 

1 

JPHASE 

determines  If  a specialty  was  defined 
to  be  included  In  subsegment  1 as  a 
primary  or  alternate 

2 

IPHASE 

determines  if  a specialty  was  defined 
to  be  Included  In  subsegment  2,  as  a 
primary  or  alternate 

3 

OPT 

determines  if  optional  output  reports 
are  to  be  produced 

4 

IB  ITS 

performs  bit  packing  and  unpacking  for 
arrays  that  contain  flow  control  codes 

5 

SET 

sets  binary  representation  for  flow 
control  codes 

6 

IPROB 

determines  If  a specialty  was  defined 
to  be  a primary  specialty  In  subsegment  1 

7 

VALID 

determines  if  a specialty  Is  an  advanced 
entry  specialty 

8 

S0PEN3 

A subroutine  In  the  UNIVAC  EXEC  8 System 
Sort  package.  The  amount  of  main  stor- 
age, drum  storage,  and  number  of  tape 
units  available  for  use  by  the  sort  pro- 
gram Is  specified  by  SOPENx  (x  may  have 
a value  of  1,  2,  3,  4,  or  5;  successively 
greater  amounts  of  data  may  be  sorted  by 
the  higher  value  of  x).  S0PEN3  specifies 
16,000  words  of  main  core  storage,  200,000 
words  of  drum  storage,  and  no  tape  units. 

9 

SRREL 

A standard  program  linkage  subroutine  in 

the  EXEC  8 System  Sort  package.  This 
linkage  releases  a record  to  the  Sort 
program. 
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TABLE  III-l,  Identification  of  Minor  Supporting  Functions  or 

Subroutines  Used  in  Matrix  Generator  Activity  Flow 
Charts  (concluded) 


Identifying 

Function/ 

number 

subroutine 

name 

Description 

10  SSORT  A standard  program  linkage  subroutine 

in  the  EXEC  8 System  Sort  package.  This 
linkage  informs  the  Sort  program  that  no 
more  records  are  to  be  released.  When 
this  call  is  encountered,  the  sort  is 
then  performed. 

11  SRRET  A standard  program  linkage  subroutine 

in  the  EXEC  8 System  Sort  package.  This 
linkage  requests  the  sorted  output 
records  from  the  Sort  program. 


5.  Discussion  and  Flow  Chart  for  FMPS  Solution  Activity.  - Since 
the  FMPS  is  a proprietary  "program  of  UNI  VAC,  the  name,  functions, 
and  calling  sequence  of  programs  is  not  available  to  the  user.  How- 
ever, the  general  sequence  of  FMPS  control  language  procedures  is 
as  illustrated  in  Figure  III-16.* 


*A  detailed  listing  of  these  procedures  is  contained  in  para 
graph  3f,  Chapter  IX,  Catalogued  Runstreams--the  procedures  are 
fully  explained  in  FMPS  Programers'  Manual  (reference  1). 
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6.  Discussion  and  Flow  Charts  for  Data  Base  Creation  Activity 

a.  The  procedures  for  creating  the  data  bases  used  in  ODSAS  are 
comprised  of  one  executive  program  that  controls  three  major  sub- 
routines and  one  program  that  re-sequences  and  updates  selected 
data  values  in  the  data  base  input  files.  Program  narratives  and 
source  listings  are  in  Chapters  XI  and  XII,  respectively.  The 
identification  of  the  executive  program  and  major  subroutines,  and 
their  calling  sequence  is  shown  in  Figure  1 1 1 - 1 7 . 


Executive  Program 


Creates  a card  image  file  cf  the  FMPS 
solution  output,  to  be  combined  with 
matri»  genet ator  output  of  selected 
coefficients  for  the  data  base  records 


Merges  the  ard-imaqe  FMPS  solution 
output  w't*’  *he  matri*  generator  out- 
put of  selected  t efficients  for  the 
data  base  to  produce  an  input  fi'e 
for  the  current  segment  data  base 


Updates  the  ..emulative  data  base 
input  file  wth  results  -f  current 
segmen' 


FIGURE  1 1 1 - 1 7 , Flow  Chart  for  Calling  Sequence  of  Programs  Used  in 
Data  Base  Creation  Activity 


b.  The  interaction  of  the  first  program  (and  associated  sub- 
routines) with  the  data  files  in  creating  the  input  files  for  input 
to  the  data  bases  is  shown  in  Figure  II 1-18. 
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(1)  The  file  0DDBSUD1,  which  is  input  to  the  subroutine 
NEWSAV,  was  created  in  the  FMPS  activity  and  contains  selected 
solution  data.  Since  the  FMPS  programs  create  the  0DDBSUD1  file 
in  a 60  double  precision  word  format,  the  NEWSAV  subroutine  reads 
the  file,  extracts  data,  and  produces  a card-image  file  of  45 
character  records  (a  temporary  file  called  "10"). 

(2)  The  COMBIN  subroutine  then  merges  the  data  file  of 
selected  coefficients  (ODSAPUD04)  created  in  the  matrix  generator 
activity,  with  the  previously  created  file  10.  This  produces  the 
file  ODSAPUD07,  which  contains  all  the  data  elements  from  the 
current  ODSAS  segment  to  be  loaded  to  the  data  base.  Files  10  and 
ODSAPUD04  are  then  no  longer  needed. 

(3)  The  third  subroutine,  RECORD,  produces  a temporary 

updated  cumulative  data  base  input  file  (ODSAPUD03).  This  is  done 
by  merging  the  ODSAPUD07  file  (created  by  subroutine  COMBIN)  with 
the  permanent  cumulative  data  base  input  file  (0DSAPUD18) . A tem- 
porary cumulative  file  (ODSAPUD03)  is  created  so  that  the  cumula- 
tive results  can  be  evaluated  by  the  user  without  destroying  the 
cumul a t 1 ve-to-date  file.  If  the  current  segment  solution  is  accept- 

able, then  the  permanent  cumulative  file  is  updated  at  the  completion 
of  the  on-line  inquiry  activity.  The  output  files,  ODSAPUD03  and 
ODSAPUD07  respectively,  are  the  cumulative  and  current  segment  data 
base  input  files  used  to  create  the  MIRADS  data  bases. 

c.  The  interaction  of  the  second  program  with  the  data  files 
in  re-sequencing  and  updating  selected  data  values  in  the  data  base 
input  files  is  shown  in  Figure  III -19.  Since  ODSAS  employs  logical 
upper  bounds  on  a variable  for  the  total  requirements  for  a specialty 
In  the  last  year  of  the  time  span  analyzed,  and  a constraint  for  the 
unfilled  higher  grade  requirements  (same  specialty  and  year),  the 
corresponding  column  and  row  data  for  these  node  capacities  must  be 
extracted  from  the  solution  values  for  selected  row  and  column 
records.  To  accomplish  this  adjustment,  the  temporary  cumulative 
data  base  file  (ODSAPUD03)  is  first  split  into  two  temporary  files 
(file  20  contains  all  the  records  for  constraints  (rows),  and  file 
21  contains  all  the  records  for  the  variables  (columns))  via  the  ED 
processor.  The  DB-CORRECT  program  then  reads  these  files,  selects 
the  appropriate  row  and  column  records,  and  updates  the  column 
records  with  the  data  in  the  row  records.  During  the  processing, 
all  the  row  and  column  records  are  written  to  a temporary  file  (22); 
at  the  completion  of  all  updating,  file  22  is  copied  to  ODSAPUD03. 
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d.  The  second  procedure  In  the  data  base  creation  activity  is 
that  of  loading  the  data  base.  This  is  done  with  one  source  program, 
DBGEN  (the  source  listing  is  included  in  Chapter  XII).  Figure 
1 11-20  depicts  the  input  and  the  resulting  output  files  from  that 
program.  The  two  input  files  were  created  by  the  procedures 
described  in  paragraph  6b  above.  A complete  description  of  the 
function  of  each  of  the  output  files  is  in  the  MIRADS  Implementation 
Manual . 


7.  Discussion  and  Flow  Chart  for  On-Line  Inquiry  Activity 

a.  If  the  results  of  the  current  segment  are  satisfactory, 
then  the  permanent  cumulative  data  base  input  file,  0DSAPUD18,  is 
replaced  by  copying  the  temporary  cumulative  data  base  input  file 
(ODSAPUD03)  into  the  same  file  space  occupied  by  0DSAPUD18  (via  an 
EXEC  8 @C0PY  command).  However,  if  the  results  are  unsatisfactory, 
then  a program  to  update  selected  files  containing  attrition  and 
promotion  rate  and/or  specialty  requirements  data  values  must  be 
processed.  The  update  program  is  a simple  one;  for  each  type 
change,  the  old  parameter  or  rate  value  and  the  new  parameter  or 
rate  value  must  be  input,  and  if  the  old  value  matches  what  is 
already  on  file,  the  update  is  effected;  otherwise  the  update  is 
by-passed.  The  flow  chart  displaying  the  input  that  can  be  updated, 
the  resulting  output  files,  and  the  programed  procedure  is  shown  in 
Figure  1 1 1 -21 . 
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b.  If  preferred  specialty  pairings,  utilization  ratios,  or 
tour  lengths  need  to  be  updated,  then  the  procedure  shown  in  Figure 

I II -9  for  creating  or  updating  the  specialty  preferences  file  should 
be  followed  (by  specifying  UPDATE  in  the  first  parameter  card,  and 
then  entering  only  the  data  values  to  be  updated,  in  the  same  format 
as  for  fi le  creation) . 

c.  For  certain  types  of  changes  there  is  an  alternative  pro- 
cedure, (i.e.,  the  FMPS  Modify  procedure),  separate  and  distinct 
from  those  in  a and  b above,  with  which  a new  solution  can  be 
derived  without  again  solving  the  entire  problem. 

(1)  The  types  of  changes  that  can  be  processed  are: 

(a)  Upper  and  lower  bounds 

(b)  Ranges  for  acceptable  values  of  the  b-coefficients 
(right-hand  side  coefficients)  of  the  constraints 

(c)  Mathematical  relationship  by  which  the  constraint 
Is  expressed  (i.e.,  changing  an  equality  to  an  inequality) 

(d)  Right-hand  side  coefficients 

(e)  Coefficients  of  variables 
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(2)  A catalogued  runstream,  PFCAA. MODIFY , described  in 
Chapter  IX,  contains  all  the  EXEC  8 and  FMPS  control  statements 
necessary  to  perform  the  FMPS  Modify  function.  The  card  formats 
needed  to  introduce  the  changes  are  described  in  Chapter  IV  of  this 
document  and  in  Chapter  6 of  the  FMPS  Programers  Reference  Manual 
(reference  1).  The  data  describing  the  modifications  are  entered 
into  either  the  elements  named  "MODIFY/CARDS"  or  "MODI FY/ CARDS -CPT -LT" 
in  file  PFCAA.,  depending  upon  the  segment  to  be  modified  (the 
latter  element  is  used  to  modify  a CPT  or  LT  segment). 

8.  Discussion  and  Flow  Chart  for  Segment  Linkages  Activity 

a.  There  is  one  main  program  and  two  subroutines  comprising 
the  procedure  block  for  the  segment  linkages  activity.  The  main 
program  reads  the  specialty  requirements  file,  ODSACUD01,  the  input 
parameter  file,  ODINPUD01,  and  reads  and  decodes  the  file  created 
in  the  FMPS  solution  activity,  0DS0LUD1.  Decoding  is  required  because 
0DS0LUD1  contains  many  alphanumeric  values,  recorded  in  double 
precision  form,  which  must  be  converted  to  single  precision  values 
to  be  processed  by  the  two  subroutines.  The  first  subroutine  pro- 
duces the  unfilled  requirements  report  that  displays  the  specialty 
requirements  before  and  after  updating  with  the  current  segment 
FMPS  solution.  The  second  subroutine  takes  the  solution  values  and 
updates  the  specialty  requirements  file  to  reflect  requirements 
fi 1 led-to-date  and  attrition  In  the  system.  Additional  program 
narrative  is  provided  in  Chapter  XI.  Figure  I II -22  depicts  the  flow 
chart--with  actual  input  and  output  file  names--uti lized  and  updated 
by  the  LINKAGE  program: 


FIGURE  1 1 1 -22 , Flow  Chart  of  the  Linkage  Activity  Procedures 


b.  As  shown  in  the  processing  phase  flow  chart  (Figure  1 1 1 -2 ) , 
if  the  last  grade  segment  has  just  completed,  then  the  segment  link- 
age activity  Is  the  final  one  to  be  run  for  that  ODSAS  processing 
series;  otherwise,  the  remaining  segments  should  be  started  by  the 
user,  and  the  input  parameter  file  and  the  specialty  requirements 
file  are  then  updated  as  the  first  step  in  the  new  processing  run. 
Following  the  update  of  the  input  parameter  file  and  the  specialty 
requirements  file,  the  processing  phase  begins  again  with  the  matrix 
generator  activity. 

9.  Separating  Active  and  Inactive  Records  in  the  Cumulative  Data 
Base 


a.  As  described  in  paragraph  6 above,  the  cumulative  data  base 
is  only  updated  to  reflect  the  most  recent  changes  to  a particular 
grade's  records,  and  records  for  grades  In  which  all  changes  have 
been  effected  are  put  in  a separate  cumulative  data  base  input  file 
(e.g.,  when  the  LTC  segment(s)  are  completed  satisfactorily,  COL 
records  can  no  longer  be  updated  since  no  COLs  or  LTCs  promoted  to 
COL  will  be  Identified  in  the  remaining  segments).  This  is  done  to 
save  having  to  sort  those  records  for  each  subsequent  data  base 
creation  activity,  even  though  the  order  would  be  unchanged  and 
contents  unaffected. 

b.  The  flow  chart  for  the  procedure  to  separate  the  records 
is  illustrated  in  Figure  1 1 1 -23 . The  separation  Is  accomplished 
at  the  beginning  of  the  MAJ,  CPT,  and  LT  processing  phases,  to 
separate  COL,  LTC,  and  MAJ  records,  respectively. 

(1)  The  permanent  cumulative  data  base  file,  0DSAPUD18, 
(which  only  contains  records  that  can  be  updated),  is  input  to  the 
SEPARATE  program.  By  comparing  grade  field  in  the  data  base  records 
to  the  grade  of  the  current  segment,  and  determining  if  further 
updating  Is  possible,  the  data  base  records  are  divided  and  written 
to  two  temporary  files  (16  and  17). 

(2)  File  17  contains  those  records  that  can  no  longer  be 
updated.  The  ED  processor  is  used  to  place  those  records  in  file 
17  at  the  end  of  the  cumulative  input  file  of  Inactive  records 
(ODCUMUD01 ) . 

(3)  File  16  now  contains  only  cumulative  records  that  can 
be  updated,  and  It  Is  copied  via  EXEC  8 command  to  0DSAPUD18,  the 
permanent  cumulative  file  of  records  for  the  MIRADS  data  base. 
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10.  Special  Procedure  for  Accessing  All  Records  in  the  Cumulative 
Data  Base.  - If  the  cumulative  data  base  for  all  records  (acti ve 
and  inactive)  were  needed  for  analysis,  then  the  procedure  described 
in  paragraph  6c  above  would  apply,  except  that  ODCUMUD01  would  be 
the  only  Input  file,  and  only  the  output  files  for  the  cumulative 
data  base  would  be  produced.  Catalogued  runstream  PFCAA.  IMPLEMENT/ 
TOTAL  (see  Chapter  IX)  is  used  to  accomplish  this  task. 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 

CHAPTER  IV 
INPUT  CARD  FORMATS 


1.  Purpose.  - The  purpose  of  this  chapter  is  to  describe  the 
formats  and  data  items  required  for  the  card  input  to  the  ODSAS 
automated  Information  system.  The  majority  of  the  card  input  is 
processed  In  the  initialization  phase,  and  the  remainder  is  appli- 
cable when  updating  or  modifying  data  files  in  the  processing 
phase  (on-line  inquiry  activity). 

2.  Carl  Inputs  for  Initialization  Phase.  - As  shown  in  Figure 

1 1 1 - 1 , there  are  three  card  input  files  required  Tor  ODSAS;  (1)  the 
utilization  ratio  and  tour  lengths  file,  (2)  the  rat^s  and  popula- 
tions file,  and  (3)  the  input  parameters  file.  (The  latter  two 
files  are  combined  Into  one  Input  file,  as  explained  in  subparagraph 
b below.)  The  file  names,  card  types  and  names,  and  data  formats 
and  descriptions  are  as  follows; 

a . Utilization  Ratio  and  Tour  Lengths  File.  - (Internal  file 
name:  ODTURUDfllT^  - The  data  in  this  file  are  input  in  three 

different  card  types.  The  respective  card  types  (assembled  as  shown 
in  Figure  I V - 1 ) are  described  below: 


(1)  Card  T^pe  1,  Processing  Mode  Indicator.  - One  card 


only,  punched  as  follows 
Card  column  Format 


1-6 


A6 


Data  description 

Indicator  whether  to  create  or  up- 
date the  file  ("CREATE"  or  "UPDATE"] 


(2)  Card  Type  2,  Prohibited  Alternate  Specialties.  - As 
many  cards  as  needed  (normally  only  one  needed) , punched  as  follows: 

Card  column  Format  Data  description 

1-80  Free  (input  Number  of  specialties  that  cannot 

values  sep a-  be  alternate  specialties,  followed 

rated  by  by  a maximum  of  10  OPMS  specialty 

commas)  numbers  identifying  the  prohibited 

alternate  specialties 


IV-1 
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(3)  Card  Type  3,  Preferred  Specialty  Pairs.  - One  card 
for  each  preferred  specialty  pair.  Each  OPfoS  specialty  should 
appear  in  a type  3 card  as  a primary  specialty  at  least  once  to 
ensure  that  a user-defined  tour  length  is  used  for  each  specialty 
in  each  grade.  A default  value  of  3 years  is  applied  for  the  tour 
length  if  a specialty  is  not  input  as  a primary  specialty.  A 
preferred  specialty  pair,  "n/m,"  is  generated  by  the  program  for 
every  preferred  specialty  pair,  "m/n,"  input  via  a card  Type  3; 
therefore  a card  Type  3 is  not  required  for  the  "n/m"  pair,  unless 
specification  of  a tour  length  (other  than  3 years)  for  specialty 
"n"  is  desired.  Type  3 cards  may  be  assembled  without  regard  to 
sequence,  and  are  punched  as  follows: 


Card  column 

Format 

Data  description 

1-2 

12 

primary  specialty  number 

3-4 

12 

alternate  specialty  number 

5-9 

F5.3 

utilization  ratio  for  primary/ 
alternate  specialty  pair  in  grade 
0-6 

10-11 

12 

tour  length  of  primary  specialty 
in  grade  0-6,  multiplied  by  10 

12-16 

F5.3 

utilization  ratio  for  primary/ 
alternate  specialty  pair  in  grade 
0-5 

17-18 

12 

tour  length  of  primary  specialty 
in  grade  0-5,  multiplied  by  10 

19-23 

F5.3 

utilization  ratio  for  primary/ 
alternate  specialty  pair  in  grade 
0-4 

24-25 

12 

tour  length  of  primary  specialty 
in  grade  0-4,  multiplied  by  10 
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UTILIZATION  and  ToUh  LENGTHS  FILE  lOOTURUUOll 

CANO  TYPES  A/ 
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_A/  TTTlEr  and  card  Types  indicated  in  This  figure  are  "for  CON- 
VENIENCE in  NEAPING  The  FIGURE,  not  INCLUDED  IN  actual  input. 


FIGURE  IV-1,  Examples  of  Utilization  Ratio  and  Tour  Lengths  Input 
Data  Cards  (File  ODTURUD01) 


b.  Combined  Input  Parameters/Rates  and  Populations  Files.  - 
(Internal  file  name:  ODR8SUD01).  In  the  initialization  phase,  flow 

chart  (figure  1 1 1 - 1 } the  Input  Parameters  file  and  the  Rates  and 
Populations  file  are  shown  as  two  separate  entitles.  That  distinc- 
tion is  made  because  of  different  types  of  data  within  those  files. 
However,  for  processing,  the  data  in  those  files  are  placed  on  a 
single  input  disc  file,  ODR8SUD01  (because  of  internal  program  logic 
considerations).  The  data  in  this  file  are  input  in  14  different 
card  types  (see  examples  in  Figure  IV-2).  The  first  four  card  types 
contain  input  parameters.  These  are  followed  by  seven  card  types 
(card  types  5 through  11)  containing  rates  and  population  data,  and 
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three  card  types  (card  types  12  through  14)  describing  additional 
input  parameters  for  the  segmentati on-wi thi n-grade  option.  The 
respective  card  types  (assembled  as  shown  in  Figure  IV -2 ) are 
described  below: 


(1)  Card  Type  1,  Problem  Size  and  Name.  - A single  card. 


Card  column 

Format 

Data  description 

1-2 

12 

Number  of  OPMS  specialties 

3-4 

12 

Number  of  years  in  the  projection 
peri  od 

5-8 

A4 

First  four  characters  of  FMPS 
problem  name  (any  four  characters 
assigned  by  the  user) 

9-12 

A4 

Last  four  characters  of  FMPS 
problem  name  (any  four  characters 
assigned  by  the  user) 

(2) 

Card  Type  2, 

Budget  Authorizations  by  Grade.  - One 

card  only. 

Card  column 

Format 

Data  description 

1-80 

Free  (input 
values  sepa 
rated  by 
commas ) 

Total  number  of  officers  that  are 
authorized  by  the  budget  for  each 
grade  at  To,  in  ascending  order, 
2LT  througn  COL. 

(3) 

Card  Type  3, 

Specialties  to  be  Controlled.  - As  many 

cards  as  needed? 


Card  column  Format 


Data  description 


1-80 


Free  (input 
values  sepa- 
rated by 
commas ) 


Number  of  primary  specialties  (up 
to  50)  that  will  have  control  of 
input  constraints,  followed  by  the 
appropriate  OPMS  specialty  numbers 
(there  must  be  at  least  one  specialty 
specified).  The  number  allowed  as 
input  for  each  specialty  referenced 
in  this  card  is  specified  in  cards 
type  14. 
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(4)  Card  Type  4t  Advanced  Entry  Specialties.  - A single 

card. 


Card  column  Format 


Data  description 


1-80 


Free  (Input 
values  sepa- 
rated by 
commas) 


Number  of  advanced  entry  specialties 
(AES),  followed  by  up  to  20  OPMS 
specialty  numbers  identifying  the 
AES 


Card  types  5 through  11  are  assembled  In  sets  for  successive  officer 
grades,  In  descending  order  of  grade  ( 1 . e . , card  types  5,  6,  7,  and 
9 for  COL;  followed  by  card  types  5-9  for  LTC,  card  types  5-9  for 
MAJ,  card  types  5-9  for  CPT,  card  types  5-11  for  1LT,  and  card  types 
5-11  for  2LT ) . 


(5)  Card  Type  5,  Year-of-Servlce  Spread.  - One  card  for 
each  grade. 


Card  column  Format 


Data  description 


1-80 


Free  (input 
values  sepa 
rated  by 
commas) 


Officer  grade  (e.g.  6),  followed  by 
the  least  number  of  YOS,  and  the 
greatest  number  of  YOS  to  be 
represented  in  that  grade 


(6)  Card  Type  6,  Population  by  YOS.  - As  many  cards  as 
needed  for  each  grade. 


Card  column  Format 


Data  description 


1-80 


Free  (input 
values  sepa- 
rated by 
commas ) 


The  number  of  officers  in  the  grade 
Indicated  in  card  type  2,  in  each 
YOS  represented  in  that  grade. 
Entries  must  be  in  ascending  order 
of  YOS. 


(7)  Card  Type  7,  Attrition  (Including  Promotion)  Rates  by 
YOS.  - As  many  cards  as  needed  for  each  grade. 


Card  column  Format 


Data  description 


1-80  Free  (input 

values  sepa- 
rated by 
commas) 


Annual  attrition  rates  (that  include 
promotion  as  a form  of  attrition) 
for  the  grade  indicated  in  card 
type  5,  for  each  YOS  represented 
in  that  grade,  beginning  with  the 
lowest  YOS.  Rates  are  percentages 
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expressed  as  decimals  (e.g.,  15.95 
percent  per  year  is  expressed  as 
.1595;  20  percent  is  expressed  as 
.20).  Not  more  than  nine  entries 
per  grade  for  1LT  and  2LT,  because 
of  system  design  consi derations  ; 
there  are  no  limits  on  other  grades. 

(8)  Card  Type  8,  Attrition  (Excluding  Promotion)  Rates  by 
YOS . - As  many  cards  as  needed  for  each  grade  (normally  only  1 

needed).  Note:  This  card  type  does  not  apply  for  grade  6,  COL. 


Card  column  Format 


Data  description 


1-80  Free  (Input 

values  sepa- 
rated by 
commas) 


Annual  attrition  rates  (that  do  not 
include  promotion  as  a form  of 
attrition)  for  the  grade  indicated 
in  card  type  5,  for  each  YOS  repre- 
sented in  that  grade,  beginning  with 
the  lowest  YOS.  Rates  are  percent- 
ages expressed  as  decimals  (e.g., 
7.62  percent  per  year  is  expressed 
as  .0762;  10  percent  is  expressed 
as  .10). 


(9)  Card  Type  9,  Overfill  and  Minimum  Fill.  - One  card 

only. 


Card  column  Format 


Data  description 


1-80 


Free  (input 
values  sepa- 
rated by 
commas ) 


Percentages,  expressed  as  decimals, 
for  overfilling  requirements  in 
each  year,  and  specifying  minimum 
fill  percentages  for  each  specialty 
in  each  year.  Four  decimal  values 
are  required  for  each  node  (except 
Grade  6,  for  which  only  two  values 
are  required),  as  follows: 

1)  percentage  of  overfill  of  require 
ments  for  grade  in  card  Type  5 

2)  minimum  percentage  of  fill  of  re- 
quirements for  grade  in  card  Type  5 

3)  percentage  of  overfill  of  require 
ments  for  next  higher  grade  than  one 
specified  in  card  Type  5 (not  re- 
quired for  Grade  6) 

4)  minimum  percentage  of  fill  of 
requirements  for  next  higher  grade 
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than  one  specified  in  card  Type  5 
(not  required  for  Grade  6) 

(10)  Card  Type  10,  Additional  LT  Attrition  (Including 
Promoti on ) Rates'!  - One  card  for  the  1LT  set  and  one  card  for  the 
2LT  set  only.  This  card  type  does  not  apply  to  other  grades. 

Card  column  Format  Data  description 

1-80  Free  (input  Nine  annual  attrition  rates  (that 

values  sepa-  include  promotion  as  a form  of 
rated  by  attrition)  applicable  to  lieutenants 

commas)  with  service  beyond  the  last  YOS 

specified  in  card  Type  5 

(11)  Card  Type  11,  Additional  LT  Attrition  (Excluding 
Promoti  on ) Rates’^  - One  card  for  the  1LT  set  and  one  card  for  the 
2LT  set  only.  This  card  type  does  not  apply  to  the  other  grades. 


Card  column 


Format  Data  description 

Free  (input  Nine  annual  attrition  rates  (that 
values  sepa-  do  not  Include  promotion  as  a form 

rated  by  of  attrition),  applicable  to  lieu- 

commas)  tenants  with  service  beyond  the  last 

YOS  specified  in  card  Type  5 

lard  Type  12,  Segmentation  Indicator.  - A single 


Card  column 


Format 

Free  (input 
values  sepa- 
rated by 
commas ) 


Data  description 

Grade  number  (followed  by  a 0 or 
1,  for  grades  6,  5,  and  4).  A 
"0"  indicates  that  no  segmentation 
within  grade  is  desired;  a "1"  in- 
dicates that  segmentation  within 
grade  is  desired. 


(13)  Card  Type  13,  Segment  1 Maximum  Fill  Percentages  by 
Special ty.  - As  many  cards  as  needed.  This  card  type  must  be 
present,  even  though  segmentation  within  grade  Is  not  desired. 

Card  column  Format  Data  description 


1-80  Free  (Input  Each  OPMS  specialty  number, 

values  sepa-  followed  by  a decimal  (from  0.0 
rated  by  to  1.0)  indicating  maximum  amount 

commas)  of  a specialty's  requirements 
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finable  in  segment  1.  (1.0  is 

equivalent  to  a maximum  of  100  per- 
cent fill  in  segment  1.  Enter  1.0 
if  no  restrictions  are  desired). 

(14)  Card  Type  14.  Upper  Limits  for  Controlled  Specialties. 
As  many  cards  as  needed.  An  upper  limit  must  be  specified  for  every 
specialty  (see  default  rule  below  for  entry  for  a specialty  that  is 
not  identified  in  card  Type  3). 


Card  col umn  Format 


Data  description 


1-80 


Free  (Input 
values  sepa- 
rated by 
commas ) 


Each  OPMS  specialty  number,  followed 
by  a real  number  (to  one  decimal 
place)  representing  the  maximum 
number  of  officers  identified  with 
the  specialty  number  (either  as  a 
primary  or  alternate  specialty), 
that  can  enter  the  network;  if  no 
upper  bound  applies,  enter  a default 
value  of  1.0. 


Note:  A set  of  card  types  13  and  14  is  required  for  each  of  grades 

6,  5,  and  4,  regardless  whether  the  grade  is  to  be  segmented.  A 
default  value  of  1.0  should  be  entered  for  each  specialty  for  each 
unsegmented  field  grade.  The  sets  are  entered  in  descending  order 
of  grade  (i.e.,  card  types  13  and  14  for  Grade  6,  followed  by  card 
types  13  and  14  for  Grade  5,  and  ending  with  card  types  13  and  14 
for  Grade  4). 


3.  Card  Inputs  for  Processing  Phase.  - As  explained  in  Chapter 
III  (Paragraph  2 c (2)  (b)  4_),  if  either  the  solution  or  the  cumula- 
tive results  at  the  completion  of  any  segment  are  unacceptable  to 
the  user,  then  the  user  may  change  policies,  parameters,  or  require- 
ments data  values.  Procedures  for  implementing  such  changes  are 
described  in  Chapter  VI  (Paragraph  7).  The  data  changes  are 
introduced  via  card  input  in  two  categories:  (1)  to  update  the 

specialty  requirements  file  and/or  the  attrition  and  promotion 
rates  file  and  thereafter  solve  the  LP  problem  from  the  beginning, 
(2)  to  modify  an  existing  FMPS  solution  so  that  the  LP  problem 
solution  can  be  recomputed  without  a complete  rerun. 
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COMB  1 Net)  INPUT  It«S/R*ftS  AND  POPULATIONS 

FILE  toORSSuDOl  1 

AJ 

mmmm 

PROBLEM  SIZE  AND  NAMt  AJ 

CARO  tYP| 

AJ 

*4BtTgmio» 

CARD 

1 

BUDGET  AUTHOR 1 ZA t | ONS  BY  GP ADC  AJ 
0,|7»»B, 14142,12011, *4 14, 333S 

CARO 

i 

SPECIALTIES  to  BE  CONTNOLLED  AJ 

1 f • I T • III  i 3 i 1 *♦  » 1 1 ill  1^1 tl3  i M t i A • , 9 7 

CARD 

3 

AOVANCCD  ENTRY  SPEClALtlES  AJ 

CARO 

M 

ICOLONEL  SEtl  AJ 

YEAR-OF-SCR» ICE  SPREAD  AJ 

*,11.10 

CARD 

S 

POHUIA  r | OS  BT  T03 

B , i | , To  , 1 1 2 i 2 P | iB]0|PAP.4tt,PAB.lP1.2Sli  144,54 

CARD 

6 

! A 1 1 P | T | 0 N IlNCLUOl'U.  PRONOtlONI  RATES  BY  YOS  _J / 

»|34,.07«..|lBi.0»l,.0»O,.|30,.lS4,.145..228i.2ll,.34B,.322,.5|7 

CARD 

7 

over-till  and  hinihuh  r i l l 

• 1 • .7 

CARD 

f 

ILIEUTENANT  COLONEL  St  t | AJ 

YEAR-OT -SI PY ICE  SPRt  AD  AJ 

TThTJ* 

CARO 

5 

Population  b»  »os  aj 

4|,|41,f*2,»45,lS44.lJS0il4<‘litO48,742,3||,2|),13*,aC 

i AO i 38 

CARO 

A 

ATTRITION  (INCLUDING  PROMOTION)  RATES  BY  YOS 

AJ 

•0RR»»010t*(Wi»  *09  1 • * 0 5 0 i • 0 * * • *592» • J 0 0 i •2flM»#29A»  • 1 N 7 

• JOO,  .70Ai  . 357 

CARD 

CARD 

7 

7 

ATTBItIDN  IE«CLU0lNG  P»OMO»IONl  PATES  By  YDS  AJ 
•0P4**010i*021,«Qlli*01Si*OTl*.2AP,.2pl,*230,*22t.«|P* 

•100). to*. .1ST 

CARD 

CARD 

8 

8 

! OVEH-r|LL  *ND  MINIMUM  Mil  _Ay 

| • l • • 7 i • 1 i • 7 

CA*0 

8 

( M A jn  R SE  T I jj 

YE AP-OI -SERY 1 CE  SPREAD  AJ 

CARO 

t 1 

6 

POPULATION  BY  YflS  AJ 

0,40,141.21  DO , 1|SA, 21*1. 2ZTB. 1821.  P2P,  0.0. 0.0 

CARD 

* 

ATTRITION  (INCLUDING  PPOMOTIONI  rates  BY  YOS 

AJ 

CABO 

• g R 7 I • U9  Ii#UJJ»*Ol0j*D7D|*09l**l'^**A83»#‘1O4,,3Z|,B««li*A'“i*AiB 

7 

■ *rrriT|on  « r *r t uo t nc  promotion!  bates  by  tos  aj 

• 04  7 £.014 ■ . 024, .023, .024, .0?*. .0*0, ,041, .040, .078. .188, .820, .ill 
0 V t R -F ILL  AND  mini  HUH  PILL  AJ 

CARD 

« 

r •n.Ti.Ti.t 

CARb 

» 

FIGURE  IV-2,  Examples  of  Combined  Input  Parameters/Rates  and  Populations 
Data  Cards  (File  ODR8SUD01)  (continued  on  next  page) 


(CAPTAIN  Stt  | jj 


7t AR-OP-SlRV  I Ct  SAIIAO  AJ 


CARO  t ' 

POPULATION  11  Yos  AJ 
0,  l ISO  ,3*1  A.  10  it,  3 3*1  . it  |3,<i2TR,2  70R  ,0,0,0 

CARD 

A 

ATTRITION  1 INCLUDING  PRCMOT|(iNI  RATES  BY 

T05 

JJ 

• jn.TBTl  ,'.d7»,  .05*,  ,oT>l  . .Nil , . 333  , . 1 oo,  .1*2 

,.2S 

CARD 

7 j 

'ATTRITION  lf»CLUdlNO  PROMOTION)  RATES  by 
• 133i,0i2,.0)8,.0Y6,,C38,.02A(i05**,.0AB,»07N,.lBN 

t 0 5 _A J 
% .043 

CARO 

• 

OVER-TILL  AND  MINIMUM  FILL  AJ 

• i * • i • § i » • 7 

CARO 

9 

•FIRST  LIEUTENANT  SET!  AJ 

TE AR-OF.SEAV  let  SPREAD  AJ 

^ % T|  A 

CARD 

s 

POPUL  A T I ON  SY  JOB  A' 

O.O.NO**, JH00.52I ,80 

CARD 

4 | 

ATTRITION  IINCLUOINS  P»UM0T|0NI  RATES  BY 

7 0 3 

AJ 

' . rua . tiptttut,  .? rr,  .nri , .»» i 

CARD 

7 

ATTRITION  1 E *C  LUo 1 NG  PRdmOTionI  Rate*  by 
• | 00 , ,SfY , .213, ,000, • 7 H | , .57  1 

70S 

J/ 

CARD 

• 

OvER-flLL  A NO  MINIMUM  TILL  AJ 

erto 

• l • »T»  • | • *7 

9 

ADDITIONAL  IT  ATTRITION  TINCLUdING  PROMOT | ON  1 

rates 

AJ 

CARD 

10 

ADDITIONAL  lY  ATTRITION  IEACLUOING  PROMOTIONI 

RATES 

AJ 

• In^i 

CARO 

» 1 1 

1 SECOND  LIEUTENANT  SETI  AJ 

YE AR-or -Sf RY 1 CE  SPREAD  AJ 

T.r,* 

CARD 

i 

population  bt  yos  aj 

• 344i*»T«0»0|0,0*0 

- - 

CARO 

4 

ATTRITION  1 INCLUDING  PROMOTION)  RATES  BY 

70S 

AJ 

tbit  , TT«rrr?»R,;nv,.m,  .m 

CARD 

7 

ATTWfTlON  l C*C  L UO  T NO  PROMOTION)  RATES  B> 
• 0A2i«000*»»BMl,769,.83J,.fP,» 

YOS 

JJ 

CARD 

B 

OVER-Mtl  AND  MINIMUM  PILL  AJ 

CARD 

9 

~ ADDITIONAL  LT  ATTRITION  (INCLUDING  PROMOTION) 

RATCS 

AJ 

CARO 

10 

ADDITIONAL  lt  ATTRITION  ieacluding  promotion) 

RATES 

AJ 

CARO 

1 1 

FIGURE  IV-2,  Examples  of  Combined  Input  Parameters/Rates  and  Populations 
Data  Cards  (File  ODR8SUD01 ) (continued  on  next  page) 
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SCGHCNTM  ion  IhOICATOR  ±J 

9,I|9»I»R(I 

CARO 

ii 

sesment  i muinun  r i lL  percentages,  it  specIalM  xj 

l|, 1.0, |2.l. 0. 11.1. 0.17.1.0. IS, l.0,2|, 1.0. IS, 1.0,2a, 1.0, 27, |.0 

CARD 

1) 

*» .1.0. 31 .1.0,31. 1.0. 14. 1.0.37, l.o. Rill. O.Rl.I.O.Rl.I.a.RR.I 

• 0 

CARO 

13 

R».I«0|7A, |, 0,77.1,0. 78. |.Q,77,|.0.S|,I.0.S2, 1.0, S3, l.0,»7,| 

• 0 

CARD 

13 

T|, |. 8. 71, 1.0,71.1, 0,77, |.0.7S,|,0. 74, |.0. 77, |.0,8|,l.0.tl,|.0 

CARD 

13 

• 0 

CARD 

13 

UPPER  LIMITS  roR  CONTROLLED  SPECIALTIES  a/ 

III  1 000.0. 12.J00.0, |3,SOO>O.IR.100.0.|S.1. 0.11. 3S0.0.26. 1.0. 

24.1.0 

CARD 

H 

*fi|. 0. is. I.c, 31*100. O.n.liO, 3*.  l.o, 3?.  1.0, *42,1.0,  mi. 0 

CARO 

1* 

RR. SO. O.RS.I.O, *4, I. 0,77, l.o. *8,1.0,77,1.0, SI. 1.0. 52.1.0, S3, 

i .0 

CARD 

1* 

*Rl|. 0, 71,  1, 0, Till. 0. 73, |,q,7n,|,0.7S. 1.0.74,1. 0)77. I.Oi* III 

• 0 • 8 2 * | • 0 

CARD 

M 

" *371 .0.14 . | .0,17 , 1 .o.ll , 1 .0,7 1 • 1 .0,72, | .0,73, 1 .0,74. 1 .0.77, i 

.8' 

CARD 

ii 

1 GRADE  5 ILTCll  ±J 

— - - 

SCINent  i has  i muh  mil  percentages,  bt  specialty  xj 

till. 0.11,1,0,13, 1,0,1*. l.o, IS, l.o, 11, 1.0, 2S, 1,0, 14,1,0,17,1 

• 0 

CARD 

I 3 

~*F,I  .B7J1  .TTT.n,  I.B,IJ,i.o,3’,1.0,Ri,i.o,Rl,i.o,R3,i.o,RN,i 

• 0 

CARO 

13 

**, 1, 0, 74, 1, 0, 77,1,0, 78, 1,0, 77,1,0, 51, 1.0.S2, 1,0, S3, 1,0, 57,1 

• 0 

CARD 

13 

^!*l*0i^^»l*0»TJ»l*C»T‘«i!.Cj»7s,l.0l7**I.O»22»I.O,8l*i.O,ii,l 

• 0 

CARO 

13 

*3, 1,0, 84,1, 0,87, 1,0, 88.1* 0,71.1.0, 72, 1,0,73.1.0, 75,1.0,77,1 

• 0 

CARO 

13 

UPPER  LIMITS  TO"  CONTROLLED  SPECIALTIES  A / 

TTilBUB  •&n*»T90.0,  i Jn5bO*o  *T*«  *79o*o.  i*»  I *b  i *8oo*b . 1%.  i *o»l4*  i *o 

CARD 

1 R 

Ir. 1.0. 2*. 1.0.31 ,700.0. IS. | .0,34,1.0,37,1.0,71.1.0,72,1.0,73 

.1.0 

CARD 

H 

RR.lSO.O.RS,  l.0|RA,|.0, 77, |,0.7l.l.C. 77,  I.Q.Sl, |.0, S2, |*0, S3.I.0 

CARO 

IR 

9|||#0»ll»l*C.SA»l.0i9^Bl*O»9Ri|.O.fl»|.O.RJ»I.O.R3.I.Oit5.l 
1 

• 0**7  * l .0 

CARD 

l* 

I grade  “ mull  ±j 

SEGHENt  I MAI  | MUM  PILL  PERCENTAGES,  BT  SPECIALTT  XJ 
l|»l.0,|2,l, 0,11, 1.0*1*, l.OtIS»I.O,2l,l»Oi2S»l. 0,24,1.0,27,1,0  CARD  i) 

*4.|.0. 31.1. 0.3S. I. 0.34.  l-O. 37, |.0,7|,  1.0.72,1. 0,73.1.0.77,1.0  CARD  I) 

"*». 1. 0.  R*  H. 0.  R7, I. 0. 7B, I. D.  **.1.0,51, I. 0.S2, 1.0, S3, 1.0, 57,1.0  CARD  1} 

7|, i. o, 71,1.0,73.1.0, 77, |.o,7s. 1.0,74.1.0, 77, i.p.bi.i.o.h.i.o  card  i i 

*1. i .oiiT, i .tt* j n vb r»tn • s . » 1 1 1 ^ o i . r . 6 . n , i . o , »v i t . b . ?T7i vf  ~ cinnr T3 

upper  LTMlt*  roR  controlled  specialties  xj 

I | llOOO.O. III  1000*0*  l 3 , 2 COO  » C » I 7 , 1000*0*  IS* 1 . 0 , 2 | i 1000.0.25, I.O.lAll.O  CARO  |R 

*7.|  .0.1*. I .0,31  .4S0.0.3S. | .0,34.  I .0,37.  I .0,7|  , j .0,71,  | ,0,7J,  | .0  CARO  f* 

RR.llO.OlMi  1.0.74, |. 0.77i|. 0. 7t, I. 0, 77, I. 0,11.1.0, SI, |. 0,53,1.0  CARD  IR 

^RrnTrmr.inTiiiniTTj.i.o.TR.r.o.TS.T.s.Ti, j.o.Jf.iiBni.T^o  caro  ir 

•I. | .0.4 3, | . 0.14.1.0. BT.I-O. t* . I .0.* | . I. 0. Rl.l. 0.R3. I.0.»S.|.0.R»||.D  CARO  IR 


H7 — mem  mo  Hirers  i no  card  tyres  iBbic aTE6  in  thTS  rriuiii  are  For  Tom^ 

7 1 n n nc t in  reading  the  eiglRe,  these  data  a»e  not  included  in  actual  input. 


FIGURE  IV-2,  Examples  of  Combined  Input  Parameters/Rates  and  Populations 
Data  Cards  (File  ODR8SUD01)  (concluded) 
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f 


a.  Updating  Specialty  Requirements  and/or  Attrition  and 
Promotion  Rates  Hie  (Internal  file  names:  ODSACUD01  and  ObPQPUD01, 

respectively) . - bata  to  update  these  files  are  input  in  selected 

combinations  from  among  eight  types  of  cards  and  placed  in  the 
"UPDATE/CARDS"  element  of  the  "PFODSAP"  program  file  via  the  ED 
processor.  The  respective  card  types  (assembled  as  shown  in  the 
examples  in  Figure  I V -3 ) are  described  as  follows: 


(1 ) Card  Type  1,  File 
always  used. 

Card  column  Format 

1-80  Free  (input 

values  sepa- 
rated by 
commas ) 


Update  Codes.  - One  card  only, 


Data  description 

Parameter  indicating  the  file(s) 
to  be  updated.  Code  values  are: 

1 - Specialty  Requirements  file 

2 - Attrition  and  Promotion  Rates 

fi  le 

3 - Both  files 


(2)  Card  Type  2,  Requirements  Change.  - Required  when 
card  type  1 specifies  1 or  3.  As  many  cards  as  needed,  one  require- 


ments  change  per  card. 

Card  column 

Format 

Data  description 

1-80 

Free  (input 

Year  number  (1-10,  representing 

values  sepa- 

Trt - Tg,  respectively),  grade  number, 

rated  by 

OPMS  specialty  number,  old  require- 

commas) 

ments  value,  new  requirements 
value 

(3)  Card  Type  3,  Rate  Type  Change.  - One  card  for  each 
grade/type  of  rate  change  to  be  made.  Required  when  card  Type  1 
specifies  2 or  3.  Each  card  Type  3 must  be  followed  by  either  a 
card  Type  4,  or  a card  Type  5,  or  card  types  6 and  7 (always  paired), 
or  a card  Type  8,  as  applicable. 


Card  column  Format 


Data  description 


1 


II  Grade  number 


2-7  (left  A6  Type  of  rate  to  be  updated: 

justified)  ATTHI  - Attrition  rate  applicable  to 

promotees 

ATTLO  - Attrition  rate  applicable  to 
those  remaining  in  grade 
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PRMT  - Promotion  rate 


0FL0L0  - Percentage  of  overfill 
allowed  for  requirements  In  a speci- 
fied grade 

UFLOLO  - Percentage  of  underfill 
allowed  for  requirements  In  a speci- 
fied grade 

OFLOHI  - Percentage  of  overfill 
allowed  for  requirements  one  grade 
higher  than  the  specified  grade 

UFLOHI  - Percentage  of  underfill 
allowed  for  requirements  one  grade 
higher  than  the  specified  grade 

AES  - Advanced  entry  specialties 

CPTREM  - Percentages  of  captains  with 
less  than  8 YOS 


(4) 

qulred  when 


Card  Type  4,  Attrition/Promotion  Rate  Chanqe. 
car'dType  3 specifies  ATTH I ATTLO,  or  PkMT 


Re- 


Card  column  Format 


Data  description 


1-80 


Free  (Input 
values  sepa- 
rated by 
commas) 


Nine  weighted  average  attrition 
nates  of  the  appropriate  type  (as 
specified  in  card  Type  3) 


(5)  Card  Type  5,  Overfill  and  Minimum  Fill  Rate  Change. 
Required  when  card  Type  3 specifies  OFLOLO,  UFLOLO,  OFLOHI,  or 
UFLOHI. 


Card  column  Format 


Data  description 


1-80  Free  (Input 

values  sepa- 
rated by 
commas) 


One  decimal  value  to  replace  the 
overfill  or  minimum  fill  parameter 
specified  In  card  Type  3 
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(6)  Card  Type  6,  Total  Number  of  AES.  - Required  when 
card  Type  3 specifies  AES.  A card  Type  6 must  be  followed  immedi- 
ately by  a card  Type  7. 


Card  column  Format 


Data  description 


1-80 


Free  (input 
values  sepa 
rated  by 
commas ) 


Total  number  of  advanced  entry 
specialties  that  are  to  be  identi- 
fied on  card  Type  7 


(7)  Card  Type  7,  AES  Identification  Numbers.  - Required 
when  card  Type  3 specifies  AES.  A card  Type  7 must  follow  immedi- 
ately after  a card  Type  6. 


Card  column  Format  Data  description 

1-80  Free  (input  Advanced  entry  specialty  numbers 

values  sepa- 
rated by 
commas ) 

(8)  Card  Type  8,  Rates  for  CPT  Population  With  Less  Than 
8 YOS . - Requi red  when  card  Type  3 specifies  Cf’TREM. 


Card  column  Format 


Data  description 


1-80 


Free  (input 
values  sepa- 
rated by 
commas ) 


Nine  decimal  rates  representing  the 
proportion  of  the  total  captain 
population  with  less  than  8 YOS  at 
any  node  in  the  network  for  each  of 
the  nine  years  (the  maximum  number 
of  years  that  can  be  considered  in 
the  model).  Rates  must  be  in 
descending  numerical  order,  or 
input  will  be  rejected 


b.  Modification  of  an  Existing  FMPS  Solution 

(1)  The  data  (in  the  formats  described  below)  to  modify  an 
existing  FMPS  solution  is  placed  in  the  element  MODIFY/CARDS  or 
MODIFY/CARDS-CPT-LT  of  file  "PFCAA"  via  the  ED  processor.  These 
two  elements  are  described  and  illustrated  in  Chapter  IX,  Paragraph 
4.  The  procedure  to  modify  an  existing  FMPS  solution  is  described 
in  Chapter  VI,  Paragraph  7. 
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FIGURE  IV-3,  Examples  of  Cards  to  Update  Specialty  Requirements 

File  (ODSACUD01)  and/or  Attrition  and  Promotion  Rates 
File  ( ODPOPUD0 1 ) 


(2)  Each  data  value  to  be  modified  in  an  existing  FMPS 
solution  requires  a single  card.  Use  as  many  cards  as  needed  (not 
to  exceed  500).  Card  format  is  as  follows: 


Card  column 

Format 

Data  description 

2-3 

A2  (left 
justify) 

Type  of  constraint  or  bound. 
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2A4  (left 
justify) 


2A4  (left 
justify) 


1)  FMPS  type  of  constraint  (i.e.,  L, 

E,  or  G;  where  L indicates  <,  E 
indicates  =,  G indicates  >) . 

2)  Type  of  bound  on  a variable  (i.e., 
LO  or  UP;  where  LO  indicates  lower 
bound  and  UP  indicates  upper 
bound) 

3)  Leave  blank  when  changing  a 
variable's  coefficient,  a right- 
hand  side  coefficient,  or  a range 
val ue . 

Constraint,  Chapter,  or  Variable  Name. 


1)  Constraint  name  (see  Appendix  D), 
if  modifying  the  FMPS  type  of 
constraint 

2)  FMPS  chapter  name  (i.e.,  .RANGES, 
or  .BOUNDS.),  if  modifying  a range 
or  a bound  value 

3)  Variable's  name  (see  Appendix  D) , 
if  modifying  a variable's  coeffi- 
cient 

4)  The  right-hand  side  chapter's 
name  (i.e.,  RHS),  if  modifying  a 
b-coefficient  (right-hand  side) 

Row  or  Column  Name  (see  Appendix  D). 


1)  Row  name,  except  when  modifying  a 
bound  upon  a variable 

2)  Column  name  when  modifying  a bound 
upon  a variable 

3)  Leave  blank  when  modifying  the 
FMPS  type  of  constraint 


f 


25-36  F12.4  New  coefficient  for  a variable, 

or  new  value  for  a range,  bound 
or  b-coefflclent.  Leave  blank 
when  modifying  the  FMPS  type  of 
constraint 

Note:  Chapter  6,  Paragraph  6.2.3,  of  the  FMPS  programers  reference 

manual,  provides  complete  details  on  the  types  of  modifications  that 
can  be  effected. 

(3)  Examples  of  cards  to  modify  data  values  in  an  existing 
FMPS  solution  are  shown  In  Figure  I V -4 . 


MUD  I E I C A T | ON  Of-  DATA 

values  ±j 

IN  AN  EXISTING  EMPS 

solution 

i E 

N 1 jstreq 

UP 

•hounds . 

XOU  1 3 

96 , ODOO 

LO 

.HOUNDS  . 

WO  1 3 2 1 

16.0000 

•RANGES, 

N 1 2 7TREQ 

25.0000 

RHS 

UR9597 

2.3000 

*09591 

R09 I 95 

0 .5000 

JJ  title 

NOT  INCLUDED  IN  INPUT. 

FIGURE  IV-4,  Examples  of  Cards  to  Modify  Data  Values  in  an  Existing 
FMPS  Solution 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS ) 

CHAPTER  V 

ODSAS  PRINTED  OUTPUT 


1.  Purpose.  - The  ODSAS  Information  system  produces  both  stand- 
ard and  optional  output  reports.  In  addition,  reporting  of  as- 
required  information  to  the  user  is  available  through  an  on-line 
Inquiry  capability.  The  purpose  of  this  chapter  is  to  display 
examples  of  system  outputs  that  are  available  for  printing  If  the 
user  desires  them  for  analysis  or  retention  as  hard-copy.  The 
reports  are  produced  In  what  is  called  a "Breakpoint"  file. 

Through  this  procedure,  the  report  is  written  directly  to  a computer 
disc  file  rather  than  to  a printer.  In  this  way,  the  user  can  look 
at  the  report  via  a cathode  ray  tube  (CRT)  terminal  and  evaluate 
the  need  to  print  the  report.  Sample  outputs  are  arranged 
according  to  the  order  In  which  they  are  produced,  starting  with 

the  Initialization  Phase  and  ending  with  the  linkage  activity  of 
the  Processing  Phase. 

2.  Initialization  Phase  Reports.  - In  the  Initialization  Phase, 
there  are  two  types  of  standard  output  reports.  These  serve  to 
inform  the  user  on  data  which  have  been  derived  for  use  as  input 
to  the  Processing  Phase,  thus  permitting  verification  of  the  data 
before  use. 

a.  Positional  Requi rements  Reports . - The  first  type  (identi- 

fied in  Figure  III-l  as  Output  6)  contains  the  calculated  positional 
requirements  by  specialty  and  by  grade.  Figure  V-l  Is  a sample  of 
the  report  on  requirements  by  specialty;  Figure  V- 2 Is  a sample 

of  the  report  on  requirements  by  grade.  These  reports  are  derived 
from  data  contained  In  the  Personnel  Structure  and  Composition 
System  (PERSACS). 

b.  Attrition  and  Promotion  Rates  Reports.  - The  second  report 
type  contains  the  derivation  and  computations  used  to  produce  the 
input  rates  to  the  system.  An  excerpt  from  that  report  for  LTC 

Is  In  Figure  V-3.  Numbers  boxed-in  are  examples  of  the  rates  input 
to  the  matrix  generator. 
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FIGURE  V- 3,  Excerpt  of  Attrition  and  Promotion  Rates  Computation  Reporl 


3.  Processing  Phase  Reports 


a.  Matrix  Generator  Activity.  - There  Is  one  standard  report 
and  one  optional  report  produced  In  the  matrix  generator  activity. 

The  standard  report  Is  a statistical  summary,  and  the  optional  report 
contains  the  internal  programing  codes  used  In  the  matrix  generator 
to  record  the  paths  In  the  networks. 

(1)  Statistical  Summary.  - This  standard  report,  printed 
In  two  parts,  contains  the  key  requirements  data  and  characteristics 
of  the  problem  to  be  solved. 

(a)  The  first  part  (Figure  V-4)  shows  both  the  unfilled 
higher  grade  requirements  (passed  down  from  the  preceding  segment) 
and  the  requirements  for  the  grade  of  the  current  segment.  (Require- 
ments data  values  may  be  greater  than  actual  computed  requirements 
If  the  user  opts  to  provide  Input  directing  that  requirements  may  be 
overfilled  by  a percentage  of  the  authorized  value.)  Requirements 
values  In  this  summary  report  are  used  as  the  capacities  of  the 
nodes.  Column  2 of  the  report  (entitled  PCT  AUTH)  contains  the 
maximum  percentage  fill  allowed  fcr  a specialty  in  that  segment. 

The  values  in  Column  2 would  be  less  than  100.00  only  if  the  user 
specifies  a lower  percentage  and  opts  to  segment  the  processing 
within  grade. 


(b)  The  second  part  of  the  statistical  summary  (Figure 
V-5)  shows  the  problem  size,  in  terms  of  the  total  number  of  rows 
for  each  constraint  type,  and  a summation  of  all  constraints  (rows). 
This  total  number  of  rows  should  match  the  matrix  statistics  pro- 
duced by  FMPS  described  In  subparagraph  b below.  Additionally,  the 
report  displays  key  parameter  values  (number  of  specialties,  number 
of  years  In  the  projection  period,  and  number  of  preferences)  appli- 
cable to  the  current  segment. 

(2)  Optional  Report.  - This  report,  consisting  of  three 
parts,  displays  certain  coded  information  generated  and  used  inter- 
nally by  the  matrix  generator  program.  The  three  parts--Restrictive 
Flow  Codes  for  the  grade  being  processed,  Restrictive  Flow  Codes 
for  the  higher  (promotee)  grade,  and  Last  Exit  Year  Points  for  the 
grade  being  processed— are  described  in  subparagraphs  (a)  (b)  and 

(c),  respectively. 

(a)  Part  1,  Restrictive  Flow  Codes  for  the  Grade  Being 
Processed.  - This  part  appears  as  a square  matrix  comprised  of  a 
row  and  a corresponding  column  for  each  OPMS  specialty.  The  matrix 
contains  coded  Information  concerning  the  existence  and  nature  of 
flows  between  the  respective  specialties  (nodes)  for  officers 
remaining  In  grade.  A separate  matrix  Is  printed  for  each  year  in 
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FIGURE  V-5,  ODSAS  Statistical  Summary  Report--Part  2 


the  timespan  under  consideration.  A sample  Grade  6 matrix  for  45 
specialties  Is  shown  at  Figure  V-6.  OPMS  specialties  are  listed  on 
the  left  in  ascending  numerical  order;  specialty  numbers  are  not 
printed  out  for  column  headings  because  of  print  space  limitations. 
The  code  value  (0,1,2,  or  3)  at  row/column  intersections  indicates 
the  following: 

1.  Code  Value  0.  - No  flow  between  the  two 

specialties  (nodesj  during  that  year.  Note  that,  at  year  zero, 
values  of  0 appear  only  where  the  row  and  column  are  for  the  same 
specialty;  3's,  described  later,  are  substituted  at  year  zero. 
Values  of  0 appear  in  matrices  for  subsequent  years.  A code  of 

0 has  meaning  only  for  naming  a restrictive  flow  constraint  with 
a prefix  "R"  and  then  only  when  the  two  specialty  numbers  are 
different.  When  the  specialty  numbers  are  the  same,  a restrictive 
flow  constraint  of  the  N L I NC  type  is  defined. 

2.  Code  Value  1.  - There  is  an  equality  flow 

control  constraint  upon  the  flow  between  the  two  specialties  during 
that  year. 
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3.  Code  Value  2.  - Same  as  a code  value  of  1, 

but  the  equality  flow  control  constraint  Is  redundant  and  Is  there- 
fore deleted  from  consideration  as  an  explicit  constraint  to  save 
processing  time.  The  constraint  upon  the  flow  In  the  output  arc 
from  a specialty  to  the  highest  numbered  preferred  specialty  was 
arbitrarily  chosen  as  the  one  to  be  deleted  for  each  specialty,  for 
each  year,  Tjj  through  ^ (NYRS-1 ) * constraint  Is  redundant  because 
the  flow  In  this  output  arc  ?s  uniquely  determined:  that  flow  Is  the 

amount  of  flow  remaining  after  the  flow  conservation  constraint  upon 
a node  and  the  flow  control  constraints  on  all  the  other  output  arcs 
have  been  satisfied.  For  example,  (see  Figure  V-7),  the  flow  con- 
servation constraint  on  node  14  at  T3  specifies  that  the  node  Input 
equals  the  node  output  or, 

X21414  + X29714  = X31414  + X31497 
A restrictive  flow  constraint  (N LI NC  type)  specifies  that: 

*31414  ' M5  X21414  ♦ B.50  X29?14 

Therefore,  If  the  Input  to  node  14  were  as  shown  in  Figure  V-7  (i.e., 
X21414  + X29714  = then  the  0UtPut  must  equal  100  (because  of 

the  flow  conservation  constraint).  The  restrictive  flow  constraint 
upon  yields  a value  of  30  for  X31414  (I.e.,  (0.25  x 80)  + 

(0.5  x 20)  = 30).  The  remainder  of  the  output,  100-30  = 70,  can 
go  to  only  one  place  (I.e.,  X,1/)Q7);  thus  a constraint  Is  not 
needed.  •my/ 


FIGURE  V-7,  Example  of  Redundant  Flow  Control  Constraint 
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4_.  Code  Value  3.  - This  is  a special  form  of 

"no  flow,"  substituted  for  a code  value  of  0 in  the  year  0 matrix 
only.  The  digit  3 serves  as  a program  flag  to  omit  unnecessary 
steps  during  processing.  If  an  entire  column  in  the  year  0 matrix 
contains  only  3's  (except  that  a 0 always  appears  where  the  row  and 
the  column  are  for  the  same  specialty),  there  are  no  flows  into  that 
specialty  from  any  others,  i.e.,  that  specialty  is  not  included  in 
any  preferred  specialty  pair  in  the  matrix.  Consequently  there 
can  be  no  flow  out  of  that  node  for  the  next  year,  i.e.,  the  upper 
bound  is  set  equal  to  zero. 

(b)  Part  2 f Restricted  Flow  Codes  for  the  Higher 
(Promotee)  Grade.  ~ : This  part  appears  as  a square  matrix  comprised 
of  a row  and  a corresponding  column  for  each  OPMS  specialty.  The 
matrix  contains  coded  information  concerning  the  flows  between  the 
respective  specialties  (nodes)  for  officers  of  the  grade  population 
being  processed  who  are  promoted  into  the  next  higher  grade  during 
the  timespan  under  consideration.  A separate  matrix  is  printed  for 
each  terminal  year  in  the  timespan  ( e . g . , no  matrix  is  printed  for 
the  year  T«;  the  first  matrix,  labeled  year  Tj,  contains  information 
on  flows  beginning  at  Tg  and  ending  at  Ti ; the  second,  labeled  year 
T^,  is  for  flows  beginning  at  T,  and  ending  at  T^,  and  so  on).  A 
sample  45  x 45  matrix  for  the  LTC  segment,  containing  flow  informa- 
tion on  LTCs  promoted  to  COL,  is  shown  at  Figure  V-8.  The  term 
"For  Specialty  No.  n"  in  Figure  V-8  indicates  the  "from"  specialty. 
Each  such  term  is  followed  by  a line  of  coded  single  digit  entries, 
each  digit  position  representing  a "to"  specialty  corresponding  to 
the  OPMS  specialties,  in  ascending  order  from  left  to  right,  re- 
spectively. The  single  digit  code  value  entries  (0,  1,  2,  3,  or  4) 
indicate  the  following: 

1_.  Code  Value  0.  - No  flow  between  the  two 

specialties  during  that  year. 

2_.  Code  Value  1.  - Some  flow  occurred  from  the 

specialty  indicated  by  n in  the  label  "For  Specialty  No.  n"  to  the 
specialty  In  the  column  position  where  the  code  digit  appears.  The 
"from"  specialty  is  a primary  specialty  and  the  "to"  specialty  is 
an  alternate.  Thus,  in  Figure  V-8  it  is  readily  apparent  that 
specialties  11,  12,  13,  and  14--combat  arms--are  the  only  primary 
specialties  and  all  others  are  alternates. 

3.  Code  Value  2.  - Some  flow  occurred  from  the 

specialty  indicated  by  n in  the  label  "For  Specialty  No.  n"  to  the 
specialty  in  the  column  position  where  the  code  digit  appears.  The 
"from"  specialty  is  an  alternate  specialty  and  the  "to"  specialty 
is  a primary. 
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FIGURE  V-8,  Sample  of  Matrix  Generator  Activity  Optional  Report, 

Part  2 - Restricted  Flow  Codes  for  the  Higher  (Promotee) 
Grade 


V-ll 


1-  Code  Value  3.  - Some  flow  occurred  into  the 

"to"  specialty  where  the  "from"  specialty  is  both  a primary  and  an 
alternate.  Such  flows  occur  because  of  officer  reassignments  from 
their  primary  to  their  alternate  specialty  at  different  years  in 
the  projection  period.  Thus,  a reassignment  of  some  officers  from 
their  primary  to  an  alternate  specialty  at  T,  occurs  when  officers 
with  opposite  primary  and  alternate  specialties  are  reassigned. 

5.  Code  Value  4.  - This  value  appears  only  in 

a matrix  for  the  LT  segment.  It  indicates  that  the  flow  in  the 
Y-arc  contains  flow  from  an  earlier  alternate  specialty  designation 
point,  and  that  designations  also  occur  in  the  interval  in  which 
the  arc  appears. 

(c)  Last  Exit  Year  Points  for  Grade  Being  Processed. 
This  part  also  appears  as  a square  matrix  with  rows  ana  columns 
corresponding  to  the  OPMS  specialties,  but  is  displayed  only  once 
for  each  grade.  A sample  grade  6 matrix  for  45  specialties  is 
shown  at  Figure  V-9.  The  positive  (i.e.,  nonzero)  values  in  the 
matrix  indicate  the  number  of  increments  in  which  the  members  of 
the  Initial  (Tg)  population  depart  a specialty.  For  example,  in 
the  first  line  of  Figure  V-9,  the  value  4 which  appears  at  the 
intersection  of  Specialty  11  and  Specialty  15  (the  fifth  column), 
indicates  that  the  officer(s)  from  among  those  who  entered  the 
network  as  part  of  the  grade  6 population  with  specialty  pairing 
11/15  at  Tg,  departed  their  assignment  in  specialty  11  in  four 
increments*  (T-.,  T,,  T~,  and  T ).  (All  departures  are  functions  of 
tour  length  and  utilization  ratios.) 

b.  FMPS  Activity.  - Most  of  the  printed  output  from  the  FMPS 
activity  consists  of  diagnostic  messages  concerning  FMPS  internal 
logic  at  periodic  intervals  during  processing,  and  is  explained  in 
the  FMPS  documentation  (Reference  1).  The  two  outputs  of  primary 
concern  are  the  matrix  statistics  and  the  detailed  listing  of  the 
solution. 

(1)  A sample  matrix  statistics  output  is  at  Figure  V-10. 
The  number  of  rows  should  be  the  same  as  shown  in  the  statistical 
summary  report  from  the  matrix  generator  activity.  The  number  of 
columns  is  the  number  of  arcs  in  the  network.  There  will  always 
be  a value  of  "1"  for  RHS , Indicating  one  right-hand  side  to  the 
ODSAS  equations.  The  density  value  refers  to  the  percentage  of 
nonzero  elements  in  the  LP  matrix  (.17  is  0.17  percent).  Max- 
COL-nz's  is  the  maximum  number  of  nonzero  elements  in  any  column. 
Elements  (Figure  V-10)  include  the  total  number  of  (nonzero  and 
zero)  elements  in  the  LP  matrix.  The  largest  and  smallest  element 
values  are  then  shown,  followed  by  major  and  minor  errors  encoun- 
tered on  input--these  last  two  values  should  be  zero. 
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FIGURE  V-10,  Sample  Matrix  Statistics  Output  from  FMPS 


(2)  The  detailed  listing  of  the  solution  is  normally 
written  out  to  a computer  disc  file  for  retention,  possible  future 
printing,  and  user  inquiry  via  a text  editor.  The  solution  is 
written  in  three  sections:  identifier,  rows,  and  columns. 

(a)  A sample  identifier  section  is  shown  in  Figure 
V-ll.  The  figure  reflects  that  the  LP  problem  had  an  optimal  status, 
the  objective  function  (OBJECTIV)  had  a maximum  value  of  1814.444443, 
and  3043  interactions  were  required  to  solve  the  problem. 
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FIGURE  V-ll,  FMPS  Solution  Output--Identi fier  Section 


(b)  An  excerpt  of  the  rows  section  Is  at  Figure  V-12. 
All  the  rows  have  unique  names  relating  to  constraint  types.  The 
naming  convention  Is  described  In  Appendix  D. 

(c)  The  rows  of  primary  Interest  are  those  for  node 
capacity,  l.e.,  CREQ  and  TREQ,  since  all  others  except  control  of 
Input  constraints  are  specified  as  equalities  to  zero.  For  Instance, 
flow  conservation  constraints  require  that  the  node  Input,  less 

the  node  output,  be  equal  to  zero.  If  the  row  name  ends  In  TREQ, 
then  the  capacity  Is  for  the  current  grade  plus  the  unfilled  higher 
grade.  If  the  name  ends  In  CREQ,  then  the  capacity  is  for  only 
the  unfilled  higher  grade  requirements.  For  each  row  dealing  with 
node  capacities,  the  activity  is  the  number  of  officers  assigned  to 
a specialty  for  a given  year.  The  slack  activity  Is  the  difference 
between  the  activity  and  the  upper  limit  (node  capacity)  shown  in 
Column  5.  The  lower  limit,  Column  6,  would  appear  as  a zero  or 
"None"  unless  minimum  level  of  flow  into  a node  has  been  specified. 
Such  a minimum  Is  used  in  the  CPT  segment  to  require  filling  of  at 
least  the  unfilled  higher  grade  requirements.  The  data  values  In 
the  three  rightmost  columns  are  used  for  postoptimality  analysis. 

(d)  The  columns  section  (Figure  V-13)  Is  similar  to 
the  rows  section  In  that  there  are  corresponding  columns  for  name, 
activity,  and  lower  and  upper  limits.  For  columns  however,  activity 
value  represents  the  amount  of  flow  (dual -qual i fled  officers)  in 

a path  segment  described  by  the  arc  name.  The  Input  cost  is  the 
coefficient  of  a variable  In  the  objective  function.  A value  other 
that  zero  would  appear  only  for  the  variables  representing  the 
arcs  exiting  the  network.  The  variables  have  unique  names,  XNnn, 
where  N Indicates  the  last  year  and  nn  Is  the  specialty  or  node 
number.  The  lower  and  upper  limit  columns  contain  the  minimum  and 
maximum  values,  respectively,  that  the  flow  In  the  arcs  may  attain. 
The  reduced  cost  values  are  used  In  postoptimality  analysis. 

(e)  The  types  of  constraints  and  var1ables--and  thus 
the  composition  of  the  rows  and  columns  sect1ons--d1ffer  according 
to  the  grade  segment  being  processed.  A summary  of  the  constraints 
and  variables  Included  In  each  ODSAS  grade  segment  Is  shown  in 
Table  V-l.* 


*$ee  Chapter  II  of  the  ODSAS  Study  Report  (Reference  4)  for  a 
complete  description  of  the  application  of  the  constraint  types  and 
variables.  See  also  Appendix  D,  this  documentation,  for  naming 
conventions . 
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FIGURE  V-13,  FMPS  Solution  Output — Columns  Section 
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TABLE  V-l,  Summary  of  Application  of  Variables,  Constraints  and 
Promotions  in  the  ODSAS  Grade  Segments 


fes 


res  fes  res 


res  with  > »es  No 


res  'es  res  »es 


Other  constraint  types  not  mentioned  ’O  this  table  are  Mow  conservation,  control  Of  input,  and  key  arc  relation- 
ship. The  one  flow  conservation  constraint  ( fiO ZO ) apolies  to  all  grade  segments  ")*  me  two  control  of  Input  constraints, 
one  (TOTAUTH)  applies  to  all  grade  segnwnts.  while  the  other  (uBSG)  applies  to  field  grades  only  The  key  arc  relationship 
constraint  (UR)  applies  to  all  segments  e*cept  IT 

b/ 

Promotions  to  0*7  are  included  as  a tyre  of  attrition  fror  tie  grade  of  0-6.  thjs  t arcs  (which  represent  promoters) 
are  not  required 


T arcs  represent  promotees  to  ne»t  higher  grade  Promotions  can  occur  at  an*  node  beg’nnlng  at  and  ending  at 
T at  T . promotions  result  in  reassignment  to  the  alternate  specialty,  while  ,n  a 1 1 other  rears,  the  reassignment 

td  tne  alternate  specialty  is  not  effected  until  the  c ore ' <* 1 1 on  of  one  tour  length 


o/  . 

The  CPT  segment  's  the  only  segment  in  which  a m arc  connects  a specialty  n node  at  ’ and  a specialty  n node  at  T 
(e  g.  arc  w connects  node  21  at  7 *0  node  -‘‘l  at  : ; 9 9 

021?t  * « 

^ \ arcs  represent  captains  with  less  than  8 ro*>  and  are  onf*  constructed  'or  Bf  S.  there  ft  or-  ard  "to"  specialties 
are  the  same,  up  to  year  where  earliest  year  group  at  would  reach  the  beginning  of  the  8th  »0$ 

u 

t arcs  represent  captains  and  majors  wth  8 cr  more  * 'IS  'onot'on  f i or  captain  to  r,ajor  's  considered  in  confuting 

the  attrition  rates  applied  to  the  flows  in  the  * arcs,  however,  p*.-vrtees  rer-am  m tne  • arcs 

1' 

The  unfilled  higher  grade  requirements  (v.n>ch  no*-nal1»  rake  up  the  b-  oe“  'ert  o’  the  . °f  . constraint'  are  used  as 
lower  bounds  on  the  flows  Into  the  •£$  nodes  Tup  Mows  mto  the  AfS  nodes  are  influenced  by  lower  bounds  determined  ,ro’" 
attrition  rates  (normally  higher  than  the  unfilled  higher  Orade  requirements) 

h/ 

Constraints  are  of  the  less  than  or  equal  to  type  as  ior(  as  les'qnatiohs  ef  alternate  specialties  can  occur. 

thereafter,  they  are  equalities 

1/ 

* arcs  represent  a combined  second  lieutenant  l?m  ana  »'-St  lieutenant  dll'  DOpu’at'on.  lomotlon  'ron  riT  to  1LT 
<s  considered  In  computing  the  attrition  rates  which  appi»  to  the  i arcs 

u 

f arcs  represent  L T S promoted  to  CPT  since  T^ 

1 The  unbilled  higher  grade  requirements  (which  nom-ial'v  make  up  the  *■  -coe*  Me  • ent  of  the  CR13  constraint)  »"~f  used  as 
upper  bounds  on  the  flows  In  the  ’ (m»n ) arcs  to  the  point  where  the  Mrst  year  qroup  of  lieutenants  at  T would  attain 
8 *05  Thereafter,  the  CREC  constraints  apply 

"^CINC  constraints  are  constructed  fro"  the  po’nt  where  the  first  »ear  group  of  lieutenants  at  T would  attain  8 *05, 


Used  only  when  a designee  (IT/CP1  with  » 8 »05)  is  due  to  return  iron  alternate  specialty,  and  then  It  is  a ’lets 
than  or  equal  to*  type 
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c.  On-Line  Inquiry  Activity.  - All  printed  outputs  are 
optional  In  the  on-line  Inquiry  activity  of  the  processing  phase. 

By  use  of  an  appropriate  set  of  MIRADS  Instructions,  selected 
Information  on  the  status  of  a solution  or  solutions  may  be  dis- 
played on  a computer  terminal.  If  the  terminal  display  Is  to  be 
saved,  then  that  Image  on  the  terminal  display  device  can  be 
printed.  There  are  two  general  types  of  MIRADS  statement  sets: 
predefined  and  user-generated. 

(1)  The  user  may  select  a predefined  set  of  MIRADS 
Instructions,  modify  the  predefined  set,  or  compose  a new  set  of 
Instructions  depending  upon  Information  needs.  The  predefined  sets 
of  Instructions  provide  answers  to  the  following  types  of  questions: 

(a)  How  many  officers,  by  grade,  should  be  In  each 
preferred  specialty  pair? 

(b)  How  many  CPTs  with  8 YOS  should  be  designated 
specific  alternate  specialties? 

(c)  How  many  officers,  by  grade  and  specialty  pairs, 
are  assigned  against  a specialty  requirement  at  a specified  time? 

(d)  How  much  grade  substitution  Is  required  for  a 
given  personnel  policy? 

Excerpts  of  reports  answering  these  types  of  questions  are  at 
Figures  V-14  through  V-17,  respectively. 

(2)  The  user-generated  type  of  MIRADS  statement  sets  Is 
limited  only  by  MIRADS  capabilities  (explained  In  the  MIRADS-2 
Users  Manual,  published  by  Marshall  Space  Flight  Center,  NASA 
(Reference  3)). 

d.  Linkage  Activity.  - Two  reports--the  Unfilled  Require- 
ments Report  and  the  ODSAS  Procurement  Report— are  produced  In  the 
linkage  activity  of  the  processing  phase.  These  two  reports  are 
described  In  subparagraphs  (1)  and  (2),  below,  respectively. 

(1)  The  Unfilled  Requirements  Report  Is  produced  upon  com- 
pletion of  the  processing  of  each  segment.  The  report  appears  In 
two  sequential  parts  (Figure  V-18). 

(a)  The  first  part  (upper  portion  of  Figure  V-18, 
titled  REQUIREMENTS  FOR  GRADE  N ***  BEFORE  ***  DERIVING  UNFILLED 
REQUIREMENTS),  displays  the  force  structure  requirements  for  the 
current  grade  and  the  unfilled  requirements  (as  determined  in  the 
previous  ODSAS  segment  solution)  for  the  next  higher  grade,  as 
they  were  before  the  current  grade  segment  was  processed. 
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-The  number  of  officers  serving  in  their  primary  specialty 
is  also  in  this  report,  e.g.,  the  first  line  of  this  report  speci- 
fies that  there  are  14  colonels  with  specialty  pair  11/21  serving 
in  Specialty  21.  Another  line  (not  shown)  would  specify  the  number 
of  colonels  with  specialty  pair  11/21  serving  in  Specialty  11. 


FIGURE  V-14,  Excerpt  of  Direct  Access  Information  Retrieval  Display 
for  Number  of  Officers  by  Grade  in  Each  Specialty  Pair 
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FIGURE  V-15,  Excerpt  of  Direct  Access  Information  Retrieval  Display 
of  Specialty  Designations  for  Captains 
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FIGURE  V-16,  Excerpt  of  Direct  Access  Information  Retrieval  Display 
for  Number  of  Officers  by  Grade  and  Specialty  Pairs 
Assigned  to  Specialty  11 
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Grade 


Speclalt 


Number  of 
Officers  grade  - 
substituted  In 
special  ty 
requirements^/ 


id 


1 4 

95 

91 

1 4 

97 

99 

2 6 

11 

60 

2 e 

12 

22 

2 6 

13 

38 

2 6 

14 

17 

^/positions  filled  by  grade  substitution 

are  filled  by 

officers  of  the  next  lower  grade 
required  by  the  force  structure. 

with  the  same  specialty  as  that 

FIGURE  V-17 * Excerpt  of  Direct  Access  Information  Retrieval  Display 
of  Grade  Substitution  by  Specialty  Within  Grade  and  Year 
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FIGURE  V-18,  Excerpt  of  Unfilled  Requirements  Report 


(b)  The  second  part  (lower  portion  of  Figure  V-18, 
titled  REQUIREMENTS  FOR  GRADE  N ***  AFTER  ***  DERIVING  UNFILLED 
REQUIREMENTS),  displays  the  combined  total  of  the  unfilled  require- 
ments remaining  for  the  current  and  higher  grade,  after  the  current 
segment  solution  values  for  the  number  of  filled  requirements  have 
been  considered  In  deriving  the  unfilled  requirements. 

(c)  Derivation  of  unfilled  requirements  by  ODSAS 
Involves  more  than  simply  finding  the  difference  between  the 
capacity  and  the  activity  at  a node;  attrition  of  officers  assigned 
at  T^  has  to  be  taken  Into  account  when  computing  the  unfilled 
requirements  at  T^+j. 

(2)  The  ODSAS  Procurement  Report  Is  produced  only  once--upon 
completion  of  the  LT  segment. 

(a)  The  requirements  In  this  report  are  the  unfilled 
requirements  at  T.  derived  from  the  LT  segment  solution.  Since 
actual  procurement  of  new  officers  Is  by  BES  only,  the  AES  require- 
ments must  be  prorated  to  the  several  BES.  This  allocation  Is 
accomplished  according  to  the  relationships  of  BES/AES  specialty 
pairs  to  AES  requirements.  These  relationships  were  derived  In  the 
CPT  and  MAJ  segment  solutions. 

(b)  The  report  appears  In  two  parts,  with  a third 
(optional)  part  available  If  desired  by  the  user.  The  report  format 
(see  Figure  V-19)  Is  the  same  for  all  three  parts.  The  two  leftmost 
columns  pertain  to  BES  only;  all  BES  are  Identified  In  the  column 
headed  SPECIALTY  NUMBER,  and  the  requirements  for  each  BES  appear 

In  the  column  headed  BES  REQMT.  The  next  16  columns,  headed  by  the 
AES  numbers,  contain  the  AES  requirements  prorated  to  the  respective 
BES.  Requirements  for  each  BES  and  the  AES  requirements  prorated 
to  that  BES  are  summed  across  each  line  and  the  result  appears  in 
the  rightmost  column  (headed  TOTAL  REQMT).  Each  data  column  Is 
also  sunned  and  the  resulting  total  appears  on  the  bottom  line 
(labeled  TOTAL).  The  number  at  the  extreme  lower  right  of  the 
report  Is  the  grand  total  of  all  BES  and  AES  requirements,  and  Is 
the  same  whether  summed  horizontally  (the  TOTAL  line)  or  vertically 
(the  TOTAL  REQMT  column). 

1.  Part  1 of  2 (Figure  V-19)  displays,  for  each 
BES,  the  total  numHer  of  officers  to  procure,  considering  the 
requirements  for  the  BES  plus  the  prorated  number  of  officers 
needed  to  meet  the  AES  requirements. 
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2.  Part  2 of  2 (Figure  V-20)  is  similar  to 
Part  1,  except  that  the  number  of  officers  needed  to  meet  the  AES 
requirements  Is  prorated  to  the  non-combat  arm  specialties  only 
(l.e,,  the  total  requirements  for  the  combat  arms  specialties  are 
equal  to  the  BES  REQMT) . 

3.  Option  1 (Figure  V-21)  displays  the  results 
of  a modified  version  of  Part  2,  wherein  one  or  more  AES  (specified 
by  the  user)  are  prorated  to  both  the  combat  and  non-combat  arm 
specialties,  while  all  remaining  AES  are  prorated  among  the  non- 
combat arm  specialties  only. 
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FIGURE  V-21,  Example  of  ODSAS  Procurement  Report,  Option  1 (Part  2,  Modified  by  Proration  of 
Requirements  for  Specified  AES  to  Both  Combat  and  Non-Combat  Arms  Specialties) 


"f 


OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 

CHAPTER  VI 

ODSAS  OPERATIONS  GUIDE 


1.  Purpose.  - The  purpose  of  this  chapter  Is  to  provide  the  oper- 
atlng  instructions  for  ODSAS.  The  system  Is  designed  to  be  run  on 
the  UNIVAC  1108  at  MILPERCEN.  These  operating  instructions  can 
best  be  utilized  on  a demand-type  terminal  (e.g.,  UNISCOPE  100); 
however,  they  could  also  be  punched  into  cards  and  submitted  as  a 
batch  run. 

2.  Catalogued  Runstreams.  - The  Instructions  for  the  user  to 
operate  the  system  are  composed  of  a minimum  number  of  EXEC  8 con- 
trol language  statements  (also  called  EXEC  8 commands)  because  of 
the  use  of  catalogued  runstreams.  Through  this  technique,  one 
EXEC  8 command  triggers  a sequence  of  EXEC  8 statements  that  were 
previously  placed,  or  catalogued,  In  an  element  within  a program 
file.  All  the  catalogued  runstreams  are  located  on  a disc  file 
named  "PFCAA.";  the  contents  of  each  runstream  Is  displayed  In 
Chapter  IX.  Therefore,  the  user  need  only  know  a few  simple 

EXEC  8 commands  In  order  to  execute  a catalogued  runstream.  They 
are: 


a.  gSTART  PFCAA. element  name.  - This  Is  for  a longer  running 
program(s)  and  Is  -treated  as  a batch  job  by  the  computer  operating 
system. 


b.  @ADD,L  PFCAA.element  name.  - This  is  for  a program  that 
takes  relatively  little  computer  time  to  execute  and  is  treated  as 
a demand  job  by  the  computer  operating  system. 

3.  Operating  Instructions  for  Initialization  Phase 

a.  Procedure  for  SACS  Tape  Translation.  - Since  the  SACS  tape 
Is  produced  at  USAMSSA  on  an  l&M  computer,  that  tape  has  to  be 
translated  so  that  It  can  be  read  on  System  2 at  MILPERCEN  (System 
2 was  designated  as  the  computer  to  be  used  for  ODSAS).  The  trans- 
lation Is  done  on  System  3 because  that  is  the  only  system  that 
has  the  necessary  translation  capability  (l.e.,  EBCDIC-FI ELDAT A ) . 

(1)  The  SACS  tape  Is  classified  CONFIDENTIAL;  therefore, 
the  translation  run  ("SACSEXTRACT")  has  to  be  scheduled  with  the 
MILPERCEN  Customer  Services  Division  (CSD).  The  user  should  con- 
tact CSD  when  the  "SACSEXTRACT"  run  (a  listing  and  description  Is 
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in  Chapter  IX)  is  required.  CSD  will  prepare  a Production  Control 
Sheet  (DAPC-PS-Form  2),  and  provide  a copy  to  the  user. 

(2)  The  user  must  prepare  two  data  cards  for  the 
SACSEXTRACT  card  deck  and  insert  them  immediately  following  the 
"@XQT  PFODSAP . SACSEXTRACT"  card.  The  two  data  cards  are  as  follows 

(a)  Card  1 - the  number  of  tape  reels  (e.g.  , 2), 
punched  in  card  Column  1. 

(b)  Card  2 - the  reel  numbers  (e.g.,  HF040,  HF041). 
The  first  reel  number  is  punched,  left-justified,  in  card  Column  1. 
The  second  reel  number,  if  any  (the  program  will  accept  up  to  6 
reel  numbers),  is  left-justified  in  card  Column  7 (no  comma  between 
the  reel  numbers).* 

(3)  The  user  then  submits  the  SACSEXTRACT  card  deck  (as  a 
batch  run)  and  the  Production  Control  Sheet,  along  with  other  forms 
listed  below,  to  the  Computer  Operations  Division  before  1330  on 
the  desired  day/evening  of  the  run: 

(a)  Job  Series  Sheet  (DAPC-PS-Form  400) 

(b)  ADP  Job  Instructions  Sheet  (DAPC-PS-Form  401-1) 

(c)  Data  Control  Sheet  (DAPC-PS-Form  58)--to  be  used 
in  the  event  the  specified  input  is  not  available. 

(4)  A copy  of  the  runstream  is  kept  on  the  PFCAA  file  in 
an  element  named  "SACSEXTRACT"  on  System  2,  in  case  the  card  deck 
is  lost,  damaged,  or  destroyed. 

(5)  The  translated  tape  is  unclassified  since  the  unit 
identification  code  (UIC)  is  not  associated  with  the  authorized 
strength. 

b.  Completing  the  Initialization  Phase.  - Once  the  tape  is 
translated  and  the  information  extracted,  then  four  catalogued  run- 
streams  have  to  be  executed  to  finish  the  initialization  phase  of 
ODSAS.  The  necessary  EXEC  8 control  language  statements  to  accom- 
plish the  initialization  phase  activities  are: 


*The  user  is  responsible  for  assuring  that  the  correct  SACS 
tape(s)  is  being  used.  Reel  numbers  for  the  most  recent  PERSACS 
DETAIL  FILE  RECORD  can  be  obtained  from  the  Military  Strength 
Systems  Branch,  HQ  DA  Military  Systems  Division,  PERSINS-D. 
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(1)  OSTART  PFCAA.SACS 

(a)  The  PFCAA.SACS  runstream  must  be  modified  with 
the  CD  processor  to  reflect  the  starting  date  of  the  network  to  be 
analyzed.  This  date,  entered  In  YYMMDD  format,  Is  normally  the 
first  day  of  a fiscal  year  (e.g.,  771001)*  and  Immediately  follows 
the  "OXQT  PFODSAP.SACSCREATE"  statement  in  the  runstream  as  illus- 
trated below. 

ORUN ,/TP  OD001S ,090112 ,CAA  ,300 ,500 

OTYPE  2, BA 

ODELETE  ,C  OD001UD90 

OPRT ,1 

OASG.UP  OD001UD90 
OBRKPT  PRINT$/OD001UD90 

OHDG.P  SACS  FILE  CREATION  FOR  ODSAS  UNCLASSIFIED 
OASG.T  TAPE.  ,16N, 08835  . I/D  TAPE  FILE 

ODELETE ,C  TEMPDISC. 

OASG.UP  TEMPDISC.  .F/9/PO5/50  . TEMP  DISC  FILE 

OUSE  10. .TEMPDISC. 

OCOPY.G  TAPE.  ,10 
PREWIND  TAPE. 

OFREE  TAPE. 

0 DELETE, C ODOUTUD01 . 

OPRT,  I 

OASG.UP  ODOUTUD01.  .F//POS/300 
OUSE  11..ODOUTUD01 
OXQT  PFODSAP .SACSPREPRO 
OPMD.EL 
OFREE.A  10. 

OFREE.A  11. 

OPRT.F  ODOUTUD01 . 

OUSE  10.  .ODOUTUD01. 

OASG.A  ODSAPUD10. 

OUSE  11..ODSAPUD10. 

OPRT.I 

OXQT  PFODSAP.SACSCREATE 
771001 


*The  first  day  of  the  coming  FY  (rather  than  the  last  day  of 
the  current  FY)  Is  used  because  of  discontinuity  in  force  account 
Ing  In  the  SACS  data  (e.g.,  total  force  requirements  on  the  last 
day  of  FY  77  and  the  first  day  of  FY  78  may  be  significantly  dif- 
ferent because  of  the  phaseout  of  units/positions  as  of  the  end 
of  the  FY). 
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@PMD,E 

@PRT,F  ODSAPUD10. 

PPRT.I 

PBRKPT  PRINTS 
0FREE 

(3SYM.SU  OD001UD90.  ,,PR 
PASG.A  OD001UD90. 

(3ASG.A  PFPRINT . 

PCOPY.I  OD001UD90.  .PFPRINT. PRINT 
PEND 


(b)  The  EXEC  8 statements  to  make  the  change  are  as 

fol lows : 

@ED,U  PFCAA .SACSCREATE 

LOCATE  PXQT  PFODSAP .SACSCREATE 

NEXT 

runMrc  / ✓^'''//Type  in  desired  date  in\ 

CHANGE  /771001/  ^7  ^ YYMMDD  format  ) 

EXIT 


(c)  This  runstream  creates  a positional  requirements 
file,  ODSAPUD10,  and  the  positional  requirements  report.  After 
user  verification  of  the  positional  requirements  report,  ODSAPUQ10 
must  be  copied  to  the  master  positional  requirements  file, 
ODSACUD02,  via  the  following  sequence  of  commands: 

PCHG.Z  ODSACUD02.  REMOVE  READ-ONLY  MODE 

@C0PY  ODSAPUD10. , ODSACUD02. 

@CHG,V  ODSACUD02.  RE-SET  READ-ONLY  MODE 

(d)  Prior  to  the  processing  of  this  run,  the  tape 
library  must  be  notified  of  the  need  for  the  translated  tape 
(produced  in  the  SACSEXTRACT  run)  to  be  available  on  System  2. 

(2)  @START  PFCAA. TOUR.  - The  card-image  input  file, 
ODTURUD01  (described  in  Chapter  IV,  paragraph  2a)  must  be  prepared 
before  this  runstream  is  processed.  This  runstream  creates,  or 
updates,  the  specialty  preferences  file,  ODRATUD01. 

(3)  PSTART  PFCAA. INITIAL.  - The  card-image  input  file, 
ODR8SUD01  (described  in  Chapter  IV,  paragraph  2b)  must  be  prepared 
before  this  runstream  is  processed.  This  runstream  creates  the 
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attrition  and  promotion  rates  file,  ODPOPUD01,  the  master  Input 
parameter  file,  ODINPUD02,  needed  to  begin  the  first  system  seg- 
ment, and  the  attrition  and  promotion  rates  report. 

(4)  3ADD,L  PFCAA. START.  - This  runstream  copies  the 
master  specialty  requirements  file,  ODSACUD02 , and  the  master 
Input  parameter  file,  ODINPUD02,  to  the  corresponding  files, 
ODSACUD01  and  ODINPlIDfJl,  respectively.  In  the  processing  phases. 

This  runstream  also  Initializes  the  data  base  files. 

(5)  The  runstreams  In  (1),  (2),  and  (3)  above  can  be 
Initiated  from  the  demand  terminal  In  any  sequence,  and  will  be 
processed  as  batch  jobs.  The  fourth  runstream  (In  (4)  above)  takes 
very  little  computer  time,  so  It  is  executed  In  demand  mode. 

4.  Operating  Instructions  for  Processing  Phase.  - The  EXEC  8 
control  language  statements  to  operate  sll  of  the  processing  phases 
are  also  simple  statements  which  refer  to  catalogued  runstreams. 

The  Instructions  depend  upon  whether  any  of  the  field  grade  seg- 
ments are  to  be  segmented  within  grade,  and  the  user's  desire  to 
utilize  the  on-line  Inquiry  capability  offered  by  MI  RADS. 

a.  Standard  Instructions  for  Segmented  or  Unsegmented 
Processing-!  - At  Table  VI -1  are  all  the  EXEC  8 standard  control 
language  statements  needed  to  run  the  processing  phases  of  ODSAS. 

If  segmentation  within  grade  was  selected  for  any  of  the  field 
grades,  then  the  statements  In  the  column  labeled  "Segmentation 
Within  Grade"  should  be  used  for  the  grades  selected  for  segmenta- 
tion. If  segmentation  within  grade  was  not  selected  for  a field 
grade,  then  the  statements  in  the  column  labeled  "Unsegmented" 
should  be  used  for  those  grades.  The  EXEC  8 control  statements 
that  begin  "0START"  are  entered  through  the  demand  terminal  and 
are  processed  as  batch  jobs,  thus  the  output  will  probably  not  be 
Immediately  available.  The  processing  time  for  each  runstream 
depends  upon  the  number  of  rows  in  the  LP  problem  to  be  solved. 

The  standard  set  Includes  on-line  inquiry  at  the  completion  of  each 
segment.  The  on-line  Inquiry  capability  can  be  selectively  bypassed 
by  deleting  the  statements  as  Indicated  by  the  footnote.  A possible 
future  enhancement  would  be  to  produce  standard  reports  via  MIRADS 
within  a new  catalogued  runstream.  That  runstream  name  would  then 
either  replace  or  supplement  the  statement  Indicated  by  the  foot- 
note. 


b.  Optional  Instructions  for  Rerunning.  - An  optional  run- 
stream, I’FCAA.SAVECOPY/TOTAPE,  may  be  @ADDTd  after  any  PSTART 
PFCAA.  RUN-  and  before  @ADD,L  PFCAA. LI NK-MODULE . This 

runstream  wFlT  copy  the  current  version  of  eleven  ODSAS  disc 
files  to  tape  for  retention  and  use  In  the  event  that  the  next 


TABLE  VI -1,  EXEC  8 Commands  for  Processing  Phase  of  ODSAS 
(continued  on  next  page) 


Mode  of  processing 

Grade 

Segmentation  within  grade 

Unsegmented 

6 

PSTART  PFCAA . RUN-C0L1 
(submitted  as  batch  job 
from  demand  terminal) 

PSTART  PFCAA. RUN-COLXX 
(submitted  as  batch  job 
from  demand  terminal) 

PADD.L  PFCAA. MI  RADS-/ 
(user  interrogates  data 
bases  in  demand  mode) 

PADD.L  PFCAA. MI  RADS*/ 
(user  interrogates  data 
bases  in  demand  mode) 

PADD.L  PFCAA. LINK-MODULE 
(updates  files  for  next 
segment) 

PSTART  PFCAA. RUN-C0L2 
(submitted  as  batch  job 
from  demand  terminal) 

PADD.L  PFCAA. MI RADS— / 
(user  interrogates  data 
bases  in  demand  mode) 

5 

PADD.L  PFCAA. LINK-MODULE 
(updates  files  for  next 
segment) 

PADD.L  PFCAA. LINK-MODULE 
(updates  files  for  next 
segment) 

PSTART  PFCAA. RUN-LTC1 
(submitted  as  batch  job 
from  demand  terminal) 

PSTART  PFCAA. RUN-LTCY 
(submitted  as  batch  job 
from  demand  terminal) 

PADD.L  PFCAA.MIRADS— / 
(user  interrogates  data 
bases  in  demand  mode) 

PADD.L  PFCAA. MI  RADS— / 
(user  interrogates  data 
bases  in  demand  mode) 

PADD.L  PFCAA. LINK-MODULE 
(updates  files  for  next 
segment) 

PSTART  PFCAA. RUN-LTC2 
(submitted  as  batch  job 
from  demand  terminal) 
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TABLE  VI -1,  EXEC  8 Commands  for  Processing  Phase  of  ODSAS 
(continued  on  next  page) 

Mode  of  processing 

Grade Segmentation  within  grade Unsegmented 

5 (cont)  @ADD,L  PFCAA.MIRADS*/ 

(user  interrogates  data 
bases  In  demand  mode) 


4 PADD,L  PFCAA. LINK-MODULE  PADD.L  PFCAA. LINK-MODULE 

(updates  files  for  next  (updates  files  for  next 
segment)  segment) 

PADD.L  PFCAA. SEP-MODULE/4  PADD.L  PFCAA. SEP-MODULE/4 
(separates  COL  from  LTC  (separates  COL  from  LTC 
records  In  cumulative  records  In  cumulative 

data  base)  data  base) 

PSTART  PFCAA. RUN -MAJ1  PSTART  PFCAA. RUN-MAJZZ 

(submitted  as  batch  job  (submitted  as  batch  job 
from  demand  terminal  from  demand  terminal) 

PADD.L  PFCAA. MI  RADS-  PADD,L  PFCAA. MI  RADS^ 

(user  interrogates  data  (user  Interrogates  data 

bases  In  demand  mode)  bases  In  demand  mode) 

PADD.L  PFCAA. LINK-MODULE 
(updates  files  for  next 
segment) 

PST ART  PFCAA.RUN-MAJ2 
(submitted  as  batch  job 
from  demand  terminal) 

PADD.L  PFCAA. MI  RADS— / 

(user  Interrogates  data 
bases  In  demand  mode) 


3 


n/a  PADD.L  PFCAA. LINK-MODULE 

(updates  files  for  next 
segment) 
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TABLE  VI-1,  EXEC  8 Commands  for  Processing  Phase  of  ODSAS 
(continued  on  next  page) 


Mode  of  processing 

Grade 

Unseamented 

3 (cont)  n/a  @ADD,L  PFCAA.SEP-MODULE/3 

(separates  LTC  from  MAJ 
records  In  cumulative 
data  base) 

START  PFCAA.RUN-CPT 
(submitted  as  batch  job 
from  demand  terminal) 

(?ADD,L  PFCAA. MI RADSi/ 
(user  interrogates  data 
bases  in  demand  mode) 


2 n/a  @ADD,L  PFCAA. LINK-MODULE 

(updates  files  for  next 
segment) 

@ADD,L  PFCAA. SEP/MODULE/2 
(separates  MAJ  from  CPT 
records  in  cumulative 
data  base) 

@START  PFCAA. RUN-LT 
(submitted  as  batch  job 
from  demand  terminal) 

PADD.L  PFCAA. MI  RADS—/ 
(user  Interrogates  data 
bases  in  demand  mode) 

@ADD,L  PFCAA. LINK-MODULE 
(produces  final  reports 
for  ODSAS) 

PADD.L  PFCAA. SEP-MODULE/1 
(puts  LT  records  on 
cumulative  data  base 
I/P  file  with  all  other 
grade  records  and 
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TABLE  VI-1,  EXEC  8 Commands  for  Processing  Phase  of  ODSAS 
(concluded) 


Mode  of  processing 

Grade 

Segmentation  within  grade  Unseqniented 

2 (cont)  n/a  Implements  cumulative 

data  base  containing  all 
grade  records) 


PADD.L  PFCAA.MIRADS 
(user  Interrogates  data 
bases  In  demand  mode  - 
the  last  query  set  exer- 
clsed  must  be  the 
PROCUREMENT  standard  query 
set  (see  Table  VI-2)) 

@ADD,L  PFCAA. PROCURE 
(produces  standard  and 
optional  ODSAS  Procurement 
Reports ) 


— ^Statement  may  be  omitted  If  on-line  inquiry  Is  not  desired. 


processing  phase  In  sequence  should  need  to  be  re-run.  If  a 
processing  phase  needs  to  be  re-run  after  subsequent  processing 
phases  have  been  run  (in  other  words,  If  any  of  the  eleven  files 
have  been  updated),  then  the  runstream  PFCAA. SAVECOPY/TODISC  should 
be  PADD'd,  followed  by  PADD.L  PFCAA. LINK-MODULE.  These  latter  two 
runstreams  will  restore  the  disc  files  to  the  point  where  a proc- 
essing phase  can  be  restarted  ( 1 . e . , type  In  a runstream  of  the 
form  PSTART  PFCAA  RUN- ).* 

5.  Procedures  to  Ascertain  the  State  of  Processing  of  the  System 
Segments . : burlng  the  processing  of  a system  segment,  two  me s- 

sages  on  the  processing  status  are  placed  In  the  MAIL  file  which 


Prior  to  saving  or  retrieving  the  11  ODSAS  files  (via  the 
SAVECOPY/TOTAPE  or  SAVECOPY/TODISC  runstreams  respectively)  an  ADP 
Job  Instruction  Sheet,  DAPC-PS  Form  401,  dated  16  May  73,  must  be 
submitted  to  PERSINS-D  ASP  Branch  (DAPC-PSO-D)  to  ensure  that  the 
appropriate  tape  (a  blank  tape  is  required  for  SAVECOPY/TOTAPE, 
specific  reel  number  of  a previously  saved  data  base  file  Is  re- 
quired for  SAVECOPY/TODISC)  Is  mounted  on  System  2. 
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can  be  accessed  with  the  ED  processor.  The  messages  are  sent  when 
the  FMPS  processing  is  begun  and  when  the  processing  of  a segment 
is  concluded.  Since  the  FMPS  solution  activity  is  the  longest 
running  and  uses  the  most  computer  resources,  it  is  at  the  beginning 
and  end  of  this  critical  processing  activity  that  the  messages  are 
sent.  As  mentioned  above,  the  MAIL  file  can  be  accessed  with  the 
ED  processor  by  editing  any  ODSAS  data  or  program  file.  This  can 
be  accomplished  by  using  the  demand  terminal  to  enter  a command 
similar  to  the  following: 

@ED,R  ODINPUD01 

(R  is  "read-only"  mode,  ODI NPUD0I  could  be  any  ODSAS  file  name.) 

The  following  message  will  then  be  displayed  on  the  CRT: 

DO  YOU  WANT  YOUR  MAIL? 

The  user  should  respond  by  typing  in: 

YES 


-or- 


NO 


and  transmitting  the  response.  If  the  response  is  "YES,"  the 
following  two  types  of  messages  will  appear  on  the  CRT: 


FMPS  MODULE  ENTERED 
FROM:  OD006A  TIME: 

FMPS -MODULE  COMPLETED 
FROM:  OD006A  TIME: 


hhmmss 


hhmmss 


) 

) 


first  type 


second  type 


The  last  two  characters  in  the  run-ID  following  "From:"  (shown  as 
"6A"  in  the  example)  is  the  unique  identifier  for  the  segment  from 
which  the  message  was  sent;  e.g.,  OD006A  is  the  run-ID  of  COL  segment 
1 (see  Chapter  IX  for  unique  run-IDs).  The  "hhmmss"  value  is  the 
time  the  message  was  sent.  The  MAIL  file  contains  as  many  as  10 
messages;  however,  once  the  MAIL  is  displayed  or  a "NO"  response 
is  transmitted,  the  file  is  emptied.  If  the  "DO  YOU  WANT  YOUR 
MAIL"  system  response  does  not  appear,  then  processing  has  most 
likely  not  begun  for  any  segment  since  the  last  time  the  MAIL  file 


I 


was  read  (the  exception  would  be  If  the  commands  preceding  the 
FMPS  module  were  being  processed  at  the  time  of  Inquiring  for  the 
MAIL,  thus  processing  had  begun,  but  not  to  the  point  of  generating 
a message). 

6.  Procedures  to  Recover  from  Premature  Termination  of  System 
Segment.  “ If  any  system  segment  terminates  prematurely  during 
the  FMPS  solution  activity  because  of  reasons  other  than  an  Infeasible 
solution,  then  one  of  the  following  two  runstreams  can  be  executed 
(after  a modification,  If  needed,  is  made  to  the  control  statements 
within  the  runstream): 

0START  PFCAA. RECOVER  for  COL,  LTC  or  MAJ  segments 

or 

@START  PFCAA. RECOVER/CPT-LT  for  CPT  or  LT  segments 

The  first  portion  of  the  two  runstreams  Is  Identical  (see  reproduc- 
tion below),  and  Includes  a coded  two-digit  entry  (Indicated  by  the 
arrow)  that  Identifies  the  segment  being  processed. 

(3RUN  OD001,  090112, CAA 
@ASG,A  OD001UD90. 

OBRKPT  PRINT$/OD001UD90 
OHDG.P  ODSAS  RECOVERY  OF  FMPS  RUN 
taASG.A  PFFMPS . 

@ED,ID  RUN 

0ADD.L  PFCAA. DB-MODULE 
@ADD ,L  PFCAA. IMPLEMENT 
@END 

@ED,  I SEGMENT 
— 9*61 

PASG.A  0DDBSUD1. 


The  one  modification  that  may  have  to  be  made  before  attempting  to 
recover  the  segment  processing  Is  to  change  the  two-digit  segment 
Identifier.  The  segment  Identifier  code  numbers  are  as  follows: 

60  - COL  unsegmented 

61  - COL  segment  1 

62  - COL  segment  2 

50  - LTC  unsegmented 

51  - LTC  segment  1 

52  - LTC  segment  2 
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40  - MAJ  unsegmented 

41  - MAJ  segment  1 

42  - MAJ  segment  2 
30  - CPT  segment 
20  - LT  segment 

This  change  is  accomplished  by  typing  in  the  following  EXEC  8 
statements  at  the  demand  terminal: 

@ED,U  PFCAA. RECOVER 

12  (meaning  go  to  line  12)' 

Change/61/nn/  (meaning  change  segment  identifica- 

tion from  61  to  nn  (nn  = 60,  61, 
62... 20,  as  shown  above) 

This  runstream  will  begin  processing  the  LP  problem  at  the  point 
where  the  processing  results  were  last  saved,  and  perform  all  other 
functions  of  the  original  runstream. 

7 . Procedures  for  Modifying  the  LP  Problem  for  Re-running.  - I f 
the  segment  just  completed  nas  to  be  re-run  because,  through  analysi 
of  the  solution,  some  input  to  the  system  was  erroneous,  or  missing, 
then  one  or  more  of  the  following  procedures  can  be  performed  depend 
ing  upon  the  error  or  omission. 

a.  To  Change  an  Attrition  or  Promotion  Rate.  - If  after 
analyzing  the  ODSAS  solution,  an  alternate  solution  is  desired 
by  changing  the  weighted  average  attrition  or  promotion  rates, 
then  a catalogued  runstream  can  be  executed  with  the  following 
EXEC  8 command  to  update  specific  rate(s): 

@ADD,L  PFCAA. UPDATE 

This  may  be  done  in  demand  mode  since  it  takes  less  than  1 minute 
to  process.  This  runstream  could  also  be  used  to  correct  any  of 
the  rates  originally  produced  in  the  initialization  phase  by  the 
runstream  PFCAA. INITIAL,  rather  than  re-run  PFCAA. INITIAL . The 
changes  are  placed  in  "PFODSAP. UPDATE/CARDS"  via  the  ED  processor. 
The  card  formats  for  the  update  cards  is  shown  in  Chapter  IV  of  this 
documentation  manual. 

b.  To  Change  the  Specialty  Preferences.  - The  catalogued 
runstream,  PFCAA. T0UR,  is  used  to  create,  add,  or  change  specialty 
preferences.  In  the  initialization  phase,  it  was  used  to  create 
the  ODPOPUD01.  file;  it  can  also  be  used  to  add  to,  or  change, 
specialty  preferences  by  inserting  a parameter  card  calling  for 


the  update  mode  of  processing,  followed  by  cards  specifying  the 
new  or  changed  specialty  preferences  (see  Chapter  IV  for  card 
formats) . 

c . To  Change  Requirements  Data  for  a Specialty.  - The  same 
runstream'as  In  subparagraph  a above  can  be  used  to  change  a spe- 
cialty's requirements  by  grade  and  year.  The  PFCAA. UPDATE  runstream 
should  be  used  to  change  values  computed  In  the  PFCAA. SACS,  run- 
stream  of  the  Initialization  phase  If  the  FMPS  activity  has  not 
been  attempted.  Otherwise,  another  catalogued  runstream,  called 
PFCAA. MODIFY,  should  be  used.  This  employs  an  FMPS  procedure  that 
will  accept  the  changed  requirements  values,  and  will  re-sol ve  the 
modified  LP  problem  from  an  advanced  basis,  rather  than  from  the 
Initial  Input.  The  Input  format  for  the  changed  requirements  values 
Is  listed  In  Chapter  VI  of  the  FMPS  Programer's  Reference  Manual  and 
Chapter  IV  of  this  manual. 

8.  Procedures  for  Saving  the  MI  RADS  Data  Bases.  - ODSAS  creates 
two  data  bases  for  on-Tlne  Inquiry— a data  base  of  the  last  seg- 
ment processed,  and  a cumulative  data  base  which  contains  the 
results  of  all  system  segments.  These  data  base  files  have  unique 
names  (CURSEG  and  CUMSEG,  respectively)  generated  by  the  MIRADS 
programs  and  ordinarily  would  need  to  be  saved  and  accounted  for  by 
the  computer  operations  section.  However,  the  MIRADS  system  pro- 
vides an  alternative  procedure  to  save  the  data  bases  on  tape,  and 
recall  them  to  a disc  file  when  the  user  actually  needs  them  for 
on-line  Inquiry.*  To  save  the  data  base  files,  the  following 
command  (which  references  a catalogued  runstream)  should  be  used: 

@ADD,  L PFCAA. ROLLOUT 

To  restore  the  data  base  files  to  disc  (from  tape),  the  following 
command  (also  referencing  a catalogued  runstream)  should  be  used: 

@ADD,  L PFCAA. ROLLIN 


♦Prior  to  saving  or  retrieving  the  data  base  files  (via  the 
ROLLOUT  or  ROLLIN  procedures,  respectively)  an  ADP  Job  Instruction 
Sheet,  DAPC-PS  Form  401,  dtd  16  May  73,  must  be  submitted  to 
PERSINS-D  ADP  Branch  (DAPC-PSO-D)  to  ensure  that  the  appropriate 
tape  (a  blank  tape  Is  required  for  ROLLOUT,  specific  reel  number 
of  a previously  saved  data  base  file  is  required  for  ROLLIN)  Is 
mounted  on  System  2. 


9.  General  Procedures  for  On-Line  Inquiry  of  the  Data  Bases.  - 
At  the  completion  of  each  processing  phase  the  CURSEG  and  CUMSEG 
data  bases  are  available  for  on-line  inquiry  by  the  user.  When 
the  EXEC  8 command  PADD,  L PFCAA. MIRADS  is  entered,  a message  is 
displayed  on  the  CRT,  asking  for  a file  name  of  the  data  base  to 
be  referenced.  The  user  should  respond  by  typing  in  either  "CURSEG" 
or  "CUMSEG,"  depending  upon  the  user's  needs,  and  then  transmitting 
the  response.  Assuming  correct  spelling,  the  system  will  display 
a message  asking  for  a password.  The  user  should  then  respond  by 
typing  in  the  word  "ODSAS,"  and  then  transmitting.  At  this  point 
the  system  will  display  the  word  READY,  and  on-line  inquiry  can 
begin.  There  are  12  predefined  query  sets  (described  In  detail 
in  Paragraph  10  and  Table  VI-2  below)  that  can  be  processed  by  the 
following  type  command: 

DO  "query  set  name" 

Query  sets  can  also  be  composed  at  the  terminal  and  then  processed 
by  typing  the  word  RUN.  The  standard  query  set  names  are  defined 
and  listed  in  Paragraph  10  below.  When  either  of  these  MIRADS 
commands  are  transmitted  (RUN  or  DO),  the  MIRADS  system  begins  pro- 
cessing the  query  set  and  responds: 

QUERY  NOW  PROCESSING 

followed  by 

FILE  CONTAINS  nnnn  RECORDS 
QUERY  SELECTED  nn  RECORDS 
ENTER  OUTPUT  REPORT  SITE  ID 

The  user  must  respond  to  this  last  statement  by  entering  one  of 
the  following  commands  via  keyboard  entry: 

NONE  - no  output  desired 

PRINT  = n (display  first  n records  on  CRT) 

DRUM  - write  output  to  disc  file 

or 

depress  transmit  key  and  all  output  will  be 
displayed  on  CRT  (and  the  on-site  printer  if 
it  is  selected) 
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10.  Standard  Query  Sets  for  Data  Base  Access.  - There  are  12 
standard  auery  sets  of  MfkAD$  statements  that  are  loaded  when  the 
data  base(s)  are  loaded  (In  the  PFCAA. IMPLEMENT  catalogued  run- 
stream)  and  are  available  for  the  user  to  employ  as  needed.  These 
standard  query  sets  are  as  shown  In  Table  VI-2. 

11.  Modifications  to  Standard  Query  Sets.  - As  noted  In  some  of 
the  standard  query  sets  listed  In  Table  Vl-2,  the  statements  may 
be  easily  modified  so  that  they  can  be  used  for  any  specialty 

or  year,  not  just  the  ones  specified  in  the  examples.  The  MIRADS 
system  has  an  EDIT  function  that  enables  the  user  to  modify  query 
sets,  without  exiting  to  the  UN  I VAC  1108  ED  processor  and  re- 
loading the  revised  query  sets  and  data  bases.  The  EDIT  function 
with  associated  commands  Is  very  similar  to  the  ED  processor 
and  can  perform  a selected  subset  of  the  ED  processor  functions. 

All  of  the  capabilities  of  the  EDIT  function  are  explained  in  the 
MIRADS  Users  Manual;  however,  one  of  the  capabilities,  the  CHANGE 
command,  Is  the  primary  one  used  to  modify  the  standard  query  sets. 
For  example,  using  the  NODEACTIVITY  query  set,  the  following  sequence 
of  commands  may  be  used  to  transform  the  original  query  set  concern- 
ing Specialty  11,  to  a modified  query  set  concerning  Specialty  49: 

Original  Query  Set:  Q, (CYEAR  = 0 AND  CTO  = 11  AND  CACTI VITY 

GT  0 AND  CFROM  GT  0 AND  (CPREFIX  = X 
OR  Y))  OR  (CYEAR  = 1 AND  CFROM  = 11  AND 
CACTIVITY  GT  0) 

S CYEAR 

c!cYEAR,$TOTAL  = SUM  ACTIVITY 
P, CPREFIX, CYEAR,  CFROM, CTO,  CACTI VITY  ,$T0TAL 
SP  1 

Type  In  the  following  commands 
EDIT  NODEACTIVITY 
CHANGE/CTO  = 11/CTO  = 49/ALL 
CHANGE  /CFROM  = 11/CFROM  = 49/ALL 
EXIT 

The  CHANGE  command  directs  that  every  place  where  "CTO  = 11"  and 
"CFROM  = 11"  appear  In  the  query  set,  "CTO  = 49"  and  "CFROM  = 49," 
respectively,  should  replace  them.  The  resultant  query  set  Is 
shown  below: 


Changed  Query  Set:  Q,(CYEAR  = 0 AND  CTO  = 49  AND  CACTI VITY  GT 

0 AND  (CPREFIX  = X OR  Y))  OR  (CYEAR  = 1 
AND  CFROM  = 49  AND  CACTI VI TY  GT  0 
S, CYEAR 

C, CYEAR, $TOTAL  = SUM  CACTI VITV 
P, CPREFIX, CYEAR, CFROM, CTO  CACTI VITY ,$TOTAL 
SP  1 
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CHAPTER  VII 

DATA  BASE  RECORD  DESCRIPTIONS 


1.  Purpose.  - The  purpose  of  this  chapter  is  to  provide  descrip- 
tions of  the  types  and  formats  of  the  records  In  the  two  data  bases 
created  with  MIRADS,  In  major  activity  4 of  the  processing  phase. 

The  two  data  bases  are  named,  respecti vely , CURSEG  (current  segment) 
and  CUMSEG  (cumulative  results  of  all  segments  processed  thus  far). 
All  other  computer  disc  and  tape  files  are  described  In  Chapter 
VIII. 

2.  Types  of  Records . - There  are  two  types  of  records  In  each  of 
the  two  data  bases'.  The  first  record  type  (called  row  records) 
contains  solution  Information  on  the  node  capacity,  control  of 
input  constraints,  and  also  flow  control  constraints  for  the  Y arcs 
(for  the  CPT  and  LT  segments  only).  The  second  type  (called  column 
records)  contains  Information  on  all  the  columns,  or  variables. 

3.  Data  Base  Record  Formats.*  - The  number  of  data  fields  within 
each  record  type  differs;  there  are  9 data  fields  in  a row  record 
In  either  data  base,  15  data  fields  per  column  record  in  the  CURSEG 
data  base,  and  9 data  fields  per  column  record  in  the  CUMSEG  data 
base.  The  same  data  field  names  are  used  for  row  and  column  records 
In  the  cumulative  data  base  and  the  current  segment  data  base. 
However,  the  contents  are  necessarily  different  because  of  their 
functions.  One  is  a cumulative  data  base;  the  other  contains  infor- 
mation on  the  current  segment  only.  The  column  records  in  the 
CURSEG  data  base  have  6 additional  data  fields  containing  informa- 
tion on  the  arcs  with  a functional  relationship  to  the  column  (or 
variable)  which  applies.  These  data  are  useful  for  analyzing  the 
current  segment  solution.  In  compiling  the  CUMSEG  data  base,  how- 
ever, the  column  record  loses  Its  unique  identity  and  thus  the 
functional  relationships  become  useless.  Therefore,  the  data 
fields  for  the  functional  relationships  are  not  part  of  the  column 
records  in  the  CUMSEG  data  base. 


*The  row  and  column  record  formats  are  described  to  the  MIRADS 
system  via  data  base  dictionary  cards  placed  in  the  CIIR-DICT  (for 
current  segment  records)  element  and  the  CUM-DICT  (for  cumulative 
records)  element  In  the  PFODSAP  file.  (See  Chapter  IX  for  detailed 
description. ) 
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a.  Current  Segment  Data  Base  Records.  - The  CURSEG  row  record 
format  is  as  shown  in  table  V 1 1 - 1 , and  the  CURSEG  column  record 
format  in  Table  VII-2. 

b.  Cumulative  Data  Base  Records 

(1)  The  CUMSEG  row  record  format  is  as  shown  in  Table  VII-3. 
Since  the  field  names  are  the  same  as  those  used  in  the  CURSEG  row 
records,  only  the  differences  in  allowable  values  or  definitions  are 
Included. 

(2)  The  CUMSEG  column  record  formdt  is  as  shown  in  Table 
VII-4.  Since  the  field  names  are  the  same  as  those  used  in  the 
CURSEG  column  records  (except  for  ALT1  through  PER2  data  fields) 
only  the  differences  in  allowable  values  or  definitions  are  included. 
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TABLE  VII-1,  CURSEG  Row  Record  Format 


VI 1-3 


A 


TABLE  VI I -2,  CURSEG  Column  Record  Format 


Afjrf- » i ona1  ' t . the  1 arr  , si-gment  number  is  ? more  than  the  segment  rioter  for  W and 
fied  *nen  updating  the  cumulative  data  base. 


W 


I 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 

CHAPTER  VIII 

COMPUTER  DISC  AND  TAPE  FILE  DESCRIPTIONS 


1.  Purpose.  « The  purpose  of  this  chapter  Is  to  provide  detailed 
file  descriptions  of  all  but  the  data  base  disc  files  utilized  In 
ODSAS.  The  contents  of  the  data  base  disc  files  are  described  In 
Chapter  VII,  and  the  structure  of  those  files  Is  described  In  the 
MIRADS  Users  Manual  (reference  3). 

2.  Disc  and  Tape  File  Naming  Convention 

a.  Qualifier  Prefix.  - The  UNIVAC  system  requires  that  disc 
and  tape  Hie  names  be  prefixed  by  a qualifier  consisting  of  three 
alphanumeric  characters  and  that  this  qualifier  be  separated  from 
the  file  name  by  an  asterisk.  The  qualifier  for  the  ODSAS  disc  and 
tape  files  Is  "CAA." 

b.  ODSAS  Disc  and  Tape  File  Names 

(1)  There  are  five  files  (one  catalogued  runstream  file 
and  four  program  files)  whose  names  begin  with  the  letters  PF  (for 
"Program  File"). 

(2)  There  are  also  27  data  files,  with  the  names  of  all 
but  six  beginning  with  the  letters  OD  (for  "ODSAS  Data").  The  six 
data  files  whose  names  do  not  begin  with  OD  (i.e.,  INVERSE,  MATRIX, 
UTIL1 , UTIL2,  SACSTAPEIN,  and  SACSTAPEOUT)  are  FMPS  work  files. 

3.  Index  of  ODSAS  Disc  and  Tape  File  Descriptions.  - The  re- 
maindeF~o7-tFri~cHapTier-conTiFrns~3i^^  of  the  32 

ODSAS  disc  and  tape  files.  These  descriptions  are  grouped  Into  the 
two  categories  In  Paragraph  2b,  above,  and  alphabetically  within 
each  group.  The  following  Index  Is  provided  to  assist  In  locating 
the  respective  file  descriptions. 


File  name  Page 


File  name  Page 

CAA  * PFCAA  VI 1 1 -3 
CAA  * PFFMPS  VI 1 1 -5 
CAA  * PFMIRADS  VI 1 1-7 
CAA  * PFODSAP  VI 1 1 -9 
CAA  * PFPRINT  VI 1 1 -11 


Data  File  Descriptions 


File  name 


Page 


CAA  * INVERSE  VI II -13 
CAA  * MATRIX  VI 1 1 -13 
CAA  * ODCUMUD01  VI 1 1 -15 
CAA  * ODDBSUD1  VI 1 1 -17 
CAA  * ODEQAUD01  VI 1 1 -19 
CAA  * ODINPUD01  VIII -2 1 
CAA  * ODINPUD02  VI 1 1 -23 
CAA  * ODOUTUD01  VI 1 1 -25 
CAA  * ODPOPUD01  VI 1 1 -27 
CAA  * ODRATUD01  VI 1 1 -29 
CAA  * ODRECUD01  VI 1 1 -31 
CAA  * ODR8SUD01  VI 1 1 -33 
CAA  * ODSACUD01  VI 1 1 -37 
CAA  * ODSACUD02  VI 1 1 -39 
CAA  * ODSAPUD03  VI 1 1 -41 
CAA  * ODSAPUD04  VI 1 1 -43 
CAA  * ODSAPUD07  VI 1 1 -45 
CAA  * ODSAPUD10  VI 1 1 -47 
CAA  * 0DSAPUD18  VI 1 1 -49 
CAA  * ODSAVUD01  VI 1 1 -51 
CAA  * ODSOLUD1  VI 1 1 -53 
CAA  * ODTURUD01  VI 1 1 -55 
CAA  * OD001UD90  VI 1 1 -57 
CAA  * SACSTAPEIN  VI 1 1 -59 
CAA  * SACSTAPEOUT  VI 1 1 -61 
CAA  * UTIL1  VI 1 1 -13 
CAA  * UTIL2  VIII -13 


r 


ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  pFCAA 

CATALOGUE  OPTIONS:  PUBLIC,  READ-ONLY 

NUMBER  OF  RECORDS:  n/A  RECORD  SIZE:  N/A 

RECORD  FORMAT:  N/a 


| UNFORMATTED 

FILE  SIZE  (#  OF  TRKS) : 
NORMAL  SIZE  - 50 


J FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


MAXIMUM  SIZE  - TOO 


MEDIA: 


CARD 

x 

DISC,  DEVICE  TYPE  FI 4 

CARD  IMAGE  ON  DISC 

_l 

TAPE 

RECORD  FORMAT  (IF  REQUIRED): 

This  file  contains  all  the  catalogued  runstreams  used  In  ODSAS. 


ODSAS 

FILE  DESCRIPTION 


OUTPUT 


I A 


INTERACTIONS  WITH  PROGRAMS: 

PROGRAM  NAME  INPUT 

N/A 


CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA. FMPS-MODULE 
PFCAA. FMPS- MODULE/ CPT-LT 
PFCAA. MODIFY 
PFCAA. RECOVER 


NARRATIVE  DESCRIPTION: 

This  file  contains  the  absolute  elements  of  FMPS. 


FILE  NAME:  PFMIRADS. 
CATALOGUE  OPTIONS:  PUBLIC 
NUMBER  OF  RECORDS:  N/A 
RECORD  FORMAT:  N/A 

I UNFORMATTED 


FILE  SIZE  (#  OF  TRKS) : 
NORMAL  SIZE  - 250 

MEDIA: 

I “I  CARD 


CARD  IMAGE  ON  DISC 


RECORD  FORMAT  (IF  REQUIRED) 


ODSAS 

FILE  DESCRIPTION 


RECORD  SIZE:  N/A 

j FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 

MAXIMUM  SIZE  - 500 

DISC,  DEVICE  TYPE  FPO 
TAPE 

: N/A 
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T NTFRACT IONS  WITH  PROGRAMS: 


PROGRAM  NAME  INPUT  OUTPUT 

N/A 


CATALOGUED  RUNSTREAM  REFERENCES: 


PFCAA.MIRADS 
PFCAA. IMPLEMENT 
PFCAA. ROLLIN 
PFCAA. ROLLOUT 


NARRATIVE  DESCRIPTION: 

This  file  contains  all  the  absolute  elements  in  the  MIRADS  system. 
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ODSAS 

FILE  DESCRIPTION 

FILE  NAME:  PFODSAP 

CATALOGUE  OPTIONS:  PUBLIC,  READ-ONLY 

NUMBER.  OF  RECORDS:  N/A  RECORD  SIZE;  n/A 

RECORD  FORMAT: 


I | UNFORMATTED  | | FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 

FILE  SIZE  (#  OF  TRKS) : 

NORMAL  SIZE  - 250  MAXIMUM  SIZE  - 500 

MEDIA: 


CARD 

CARD  IMAGE  ON  DISC 
RECORD  FORMAT  (IF  REQUIRED): 


DISC,  DEVICE  TYPE  F60 


_ .TAPE 


VI 1 1 -9 


TNTFRACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 
N/A 


INPUT  OUTPUT 


HATALOGUED  RUNSTREAM  REFERENCES: 


PFCAA .SACS 
PFCAA .TOUR 
PFCAA. INITIAL 
PFCAA. DB-MODULE 


PFCAA. LINK-MODULE 
PFCAA. MATRIX-MODUL 
PFCAA. SEP-MODULE 


NARRATIVE  DESCRIPTION: 


This  file  contains  all  the  source,  relocatable,  and  absolute  elements 
in  the  ODSAS  system,  exclusive  of  the  FMPS  and  MIRADS  elements. 
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ODSAS 

FILE  DESCRIPTION 


r 


FILE  NAME:  PFPRINT 
CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  N/A  RECORD  SIZE:  132  characters 

RECORD  FORMAT: 

UNFORMATTED 


FILE  SIZE  (#  OF  TRKS) : 
NORMAL  SIZE  - 750 

MEDIA: 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


MAXIMUM  SIZE  - !» 


CARD 

CARD  IMAGE  ON  DISC 
RECORD  FORMAT  (IF  REQUIRED): 


DISC,  DEVICE  TYPE  FI* 
TAPE 


Each  record  Is  a 132-character  print  line. 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 
N/A 


INPUT  OUTPUT 


CATALOGUED  RUNSTREAM  REFERENCES: 


PFCAA.SACS 

.TOUR 

.INITIAL 

.RUN-COLXX 


.RUN-COL1 

.RUN-COL2 

.RUN-LTCYY 

.RUN-LTC1 


.RUN-LTC2  .RUN-CPT 

. RUN-MAJZZ  .RUN-LT 

.RUN-MAJ1 
.RUN-MAJ2 


NARRATIVE  DESCRIPTION: 

This  file  is  used  to  store  the  breakpolnted  printed  output  as  unique 
elements  that  can  be  saved  and  accessed.  The  element  names  correspond  to 
the  catalogued  runstream  element  name  for  "SACS,"  "TOUR,"  and  "INITIAL." 
imniu  Rar^  name  fol1ow^ng  the  dash  In  the  element  names  of  the 

RUN* type;  e.g.,  COLXX  Is  the  element  In  PFPRINT  that  contains 

the  printed  output  from  RUN-COLXX. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  INVERSE, 

CATALOGUE  OPTIONS: 

NUMBER  OF  RECORDS: 

Work  Files 
RECORD  FORMAT:  Unknown 

I UNFORMATTED 


FILE  SIZE  (#  OF  TRKS): 

NORMAL  SIZE  - 50  TRKS , (1  POS) 
♦catalogued  with  POS  granularity 

MEDIA: 

I 1 CARD 


CARD  IMAGE  ON  DISC 


RECORD  FORMAT  (IF  REQUIRED):  N/A 


RECORD  SIZE:  Unknown 

FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 

MAXIMUM  SIZE  - 200  TRKS»  (4  P0S) 

| DISC,  DEVICE  TYPE  F6° 

I TAPE 


MATRIX,  UTIL1,  UTIL2 
PUBLIC 

Temporary  FMPS 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFCAA,  MEDFMPSABS 

X 

or 

PFCAA,  LARGE  FMPSABS 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 
PFCAA.FMPS- MODULE 
PFCAA. FMPS-MODULE/CPT-LT 
PFCAA. MODIFY 
PFCAA. RECOVER 


NARRATIVE  DESCRIPTION: 

These  are  FMPS  work  files  (see  FMPS  programed  s reference  manual  for 
functional  descriptions). 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODCUMUD01 

N 

CATALOGUE  OPTIONS:  pUB*-IC 

NUMBER  OF  RECORDS:  VARIABLE;  depends  RECORD  SIZE:  characters 

upon  size  of  LP  problems 
RECORD  FORMAT: 

| | UNFORMATTED  | FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS) : 

NORMAL  SIZE  - TOO  MAXIMUM  SIZE  - 5nn 


MEDIA: 


DISC,  DEVICE  TYPE  FRO 


RECORD  FORMAT  (IF  REQUIRED): 
Same  as  ODSAPUD03,  or  ODSAPUD1B. 


CARD  IMAGE  ON  DISC 


TAPE 


VI 1 1 -15 


INTERACTIONS  WITH  PROGRAMS: 


k 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFODSAP. SEPARATE 
PFODSAP .DBCREATE 

X 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.SEP-MODULE 
PFCAA. IMPLEMENT 


NARRATIVE  DESCRIPTION: 

This  file  contains  the  inactive  cumulative  data  base  records  of  the  ODSAS 
system,  i.e.,  those  records  for  a grade  greater  than  the  current  grade 
segment  +1.  It  can  be  accessed  via  MIRADS  PFCAA. IMPLEMENT  TOTAL  which 
uses  ODCUMUD01  as  input  for  the  CUMSEG  data  base. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODDBSUD1 . 

CATALOGUE  OPTIONS;  PUBLIC 

NUMBER  OF  RECORDS:  Variable;  depends  RECORD  SIZE:  60  DOUBLE  PRECISION  WORDS 

on  NYRS,  NPREF,  NSPEC 
RECORD  FORMAT: 


UNFORMATTED 


Y~\  FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (i  OF  TRKS) :* 

NORMAL  SIZE  - 100  TRKS,  (2  POS) 
♦catalogued  with  POS  granularity 

MEDIA: 


MAXIMUM  SIZE  - 300  TRKS,  (5  POS) 


CARD 

X 

CARD  IMAGE  ON  DISC 

”] 

DISC,  DEVICE  TYPE  F60 


TAPE 


RECORD  FORMAT  (IF  REQUIRED): 


(see  paragraph  2.6.3  In  FMPS  programers 
reference  manual  for  full  details) 


iSSI 


SOLU 

TION 

ROWS 

. RN 

TlaH 

ROWN 

AME1 

ACT! 

tit? 

! Row  Activity  Value  ! 

10WN 

AME1 

-UM 

IT 

1 Row  Lower  Limit  Value! 

ROWN 

AME1 

ULIM 

It 

1 Row  Upper  Limit  Value  1 

ROWN 

AMU  1 

ML 

1 Dual. Activity  Va 

ue 

ROWN.  1AME2  .. 

(data  for  row  names) 
• 

(1) 

(2) 

(3) 

(4) 
(6 
(6) 

(7) 

(8) 

(9) 

(10) 

(ID 

(12) 

13 

14 

(15) 

(16) 


m. 


SOLU 

TION 

COLU 

MNS 

rn  &r 

1LAST 

COLN 

AME1 

ACT  I 

VTT7 

| Col  Activity  Value  I 

COLN 

AMtl 

LLlh 

IT 

1 Col  lower  Limit  Value 

COLN 

AME1 

ULIM 

It 

Col  Upper  L 

mit  Value 

ulTm 

IT 

M"  ' 

ACT  . _.. 

Dual  Act!  vil 

:v  Value 

ICQLN LAME2 1 

(data 

r" — 

column  dames) 

A 
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r 


INTERACTIONS  WITH  PROGRAMS: 

PROGRAM  NAME  INPUT 

PFODSAP. DATABASE  X 

PFFMPS . MEDFMPSABS 
or 

PFFMPS. LARGEFAPSABS 


OUTPUT 

X 

X 


CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.FMPS. MODULE 
PFCAA.DB-MODULE 
PFCAA.FMPS. MODULE/CPT-LT 
PFCAA. FMPS-CONTROL 
PFCAA.  FMPS-CPT-LT 

NARRATIVE  DESCRIPTION: 

Output  file  of  selected  FM PS  solution  data  values  from  current  segment 
used  to  build  data  base  file  for  use  with  information  retrieval  and 
display  system.  The  name,  activity,  lower  limit,  upper  limit, and 
dual  activity  values  of  all  requirements  constraints  (rows)  and  all 
variables  are  in  this  file. 


PFCAA. RECOVER 
PFCAA. FMPS-RECOVER 
PFCAA. FMPS-MODIFY 
PFCAA. MODIFY 


ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODEqAUDtfl 
CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  variable;  depends  RECORD  SIZE:  80  characters 
on  NYRS.  NPREF,  NSPED,  SEGMENTATION  OPTION 
RECORD  FORMAT: 


UNFORMATTED 


j FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS): 

NORMAL  SIZE  - 200  MAXIMUM  SIZE  - 500 

MEDIA: 


J CARD 

r 

DISC,  DEVICE  TYPE  F60 

1 x 

CARD  IMAGE  ON  DISC 

TAPE 

RECORD  FORMAT  (IF  REQUIRED): 

Record  formats  are  as  described  In  FMPS  programer  reference  manual 
for  card-image  file. 


VIII -19 


INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME  INPUT 

PFODSAP  .MAIN 

PFCAA.MEDFMPSABS  X 

or 

PFCAA  LARGE  FMPSABS  X 


CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA. MATRIX-MODUL 
PFCAA. FMPS-MODULE 
PFCAA. FMPS-MODULE/CPT  -LT 


NARRATIVE  DESCRIPTION: 

This  file  contains  the  row,  column,  right  hand  side, 
and  mask  input  data  descriptions  required  by  the  FMPS 


OUTPUT 

X 


ranges,  bounds, 
programs . 


ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODINPUD01 
CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  28  RECORD  SIZE:  80 

RECORD  FORMAT: 

FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


UNFORMATTED 


FILE  SIZE  (#  OF  TRKS): 
NORMAL  SIZE  - 7 


MAXIMUM  SIZE  - 7 


MEDIA: 


CARD 


CARD  IMAGE  ON  DISC 


RECORD  FORMAT  (IF  REQUIRED): 


1 DISC,  DEVICE  TYPE  FAO 


TAPE 


Cd 

1 

Cd 

2 

Cd 

3 

Cd 

4 

Cd 

5 

Cd 

6 

Cd 

7 

Cd 

8 

Cd 

9 

Cd 

10- 

■14 

Cd 

15- 

-21 

Cd 

22- 

-28 

I2,2X,I2,3X,2A4,2X,A4,I1;[NSPEC,NYRS,NAME1,  NAME?,  MODE, JGRADE] 
6(F7.0) ;[AUTHMX(J) , J=1 ,6] 

11  13; [N,SPECLT( J) , J=1,N] 

8(F6.5, * , F6 .4; rATTHI (1-9)1 
8(F6.4, ,),F6.4;[ATTL0(l-9)j 
8F6.4,  ').F6.4;[PRMT(l-9)] 

3( F6 .4, ' , 1 ) , F6 . 4 ; [ OFLOLO , UFLOLO • OFLOH I , U FLOH I ] 

InFfi.ofSEG  aaa  , where  aaa  = COL,  LTC  or  MAJ] 

8F9.0;[UPBND(k) , k=l,5n1 
10F6.3;[SARRAY(K) , K=l,50]  for  Grade  6 
Same  as  8-14  for  Grade  5 

Same  as  8-14  for  Grade  4 
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INTERACTIONS  WITH  PROGRAMS: 


1 


PROGRAM  NAME 

PFODSAP. LINKAGE 
PFODSAP . INPUT1 


INPUT  OUTPUT 


X X 

X 


CATALOGUED  RUNSTREAM  REFERENCES:  PFCAA. START 

PFCAA. LINKAGE 
PFCAA. MATRIX-MODUL 


NARRATIVE  DESCRIPTION: 

This  file  contains  all  the  data  needed  for  the  matrix  generator  (less 
the  requirements  data)  which  is  needed  to  produce  a FMPS  input  data 
file  (ODEQAUD01.)  for  any  grade  segment  or  subsegment.  Parameters  for 
the  number  of  specialties,  number  of  years  to  project,  grade  identi- 
fication, and  segmentation  option  are  in  this  file.  The  total  authorized 
strength  levels  by  grade,  the  number  and  identification  of  specialties 
to  include  in  Subsegment  1,  attrition  rates  for  promotees  and  those 
remaining  in  grade,  as  well  as  the  promotion  rate,  by  YOS,  are  also 
included.  Lastly,  the  additional  information  needed  to  limit  the 
network  flow  in  Subsegment  1 is  included.  These  last  data  values  are 
present  only  for  the  current  grade  and  the  field  grades  not  already 
processed  (if  any).  If  a field  grade  segment  is  not  segmented  within 
grade,  then  the  data  are  still  present,  but  ignored  by  the  input  sub- 
routine. 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFODSAP. INITIAL 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA. INITIAL 
PFCAA. START 


NARRATIVE  DESCRIPTION: 

This  file  contains  all  the  data  needed  for  the  matrix  generator  (less 
the  requirements  data)  to  produce  a FMPS  input  data  file  (ODEQAUD01.) 
for  the  first,  grade  6 segment  or  subsegment.  Parameters  for  the 
number  of  specialties,  number  of  years  to  project,  grade  identification, 
and  segmentation  option  are  in  this  file.  The  total  authorized  strength 
levels  by  grade,  the  number  and  identification  of  specialties  to  include 
in  subsegment  I.  Attrition  rates  for  promotees  and  those  remaining  in 
grade,  as  well  as  the  promotion  rate,  by  YOS  are  also  included.  Lastly, 
the  additional  information  needed  to  limit  the  network  flow  in  Sub- 
segment  1 is  included.  This  file  holds  the  necessary  input  parameters 
for  starting  the  COL  segment.  It  is  used  to  initialize,  or  re- 
initialize, the  system  to  the  start  of  processing  for  grade  6 rather 
than  re-run  PFCAA. INITIAL. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODOUTUD01 

CATALOGUE  OPTIONS:  Not  permanently  catalogued 

NUMBER  OF  RECORDS:  Variable  RECORD  SIZE:  45  characters 

RECORD  FORMAT: 


UNFORMATTED 


1 FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS) : 

NORMAL  SIZE  - 2,000 

MAXIMUM  SIZE  - 4,000 

MEDIA: 

| CARD 

1 x 

DISC,  DEVICE  TYPE  F6° 

x CARD  IMAGE  ON  DISC 

TAPE 

RECORD  FORMAT  (IF  REQUIRED): 


Co  I umn 

Field  Name 

1-2 

Grade 

3-4 

Primary  specialty 

5-6 

Alternate  specialty 

7-19 

Filler 

20-25 

EDATE 

26-31 

TDATE 

32-39 

FILLER 

41-45 

Authorized  strength 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME  INPUT  OUTPUT 

PFODSAP . SACSPREPRO  x 

PFODSAP . SACSCREATE  v 


CATALOGUED  RUNSTREAM  REFERENCES: 
PFCAA.SACS 


NARRATIVE  DESCRIPTION: 

This  file  contains  the  SACS  data  edited  for  invalid  specialty  numbers 
Some  requirements  with  unofficial  OPMS  specialty  numbers  still  have 
to  be  re-distributed  by  the  PFODSAP. SACSCREATE  Program. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODPOPUD01 
CATALOGUE  OPTIONS;  PUBLIC 
NUMBER  OF  RECORDS:  7 
RECORD  FORMAT: 


RECORD  SIZE:  7 31 


□ 


UNFORMATTED 


□ 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS) : 
NORMAL  SIZE  - 17 

MEDIA: 


MAXIMUM  SIZE  - 17 


| | CARD 

j ”|  DISC,  DEVICE  TYPE  F14 

CARD  IMAGE  ON  DISC 

I TAPE 

RECORD  FORMAT  (IF  REQUIRED) : N/A 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFUDSAP. INITIAL 
PFODSAP. LINKAGE 

X 

X 

PFODSAP . INPUT1 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 
PFCAA. INITIAL 
PFCAA. LINK-MODULE 


NARRATIVE  DESCRIPTION:  N/A 

This  file  contains  the  attrition  and  promotion  rates  for  each  grade  used 
in  the  matrix  generator.  It  also  contains  the  percentage  of  overfill 
and  underfill  of  requirements  desired  by  the  user  for  each  grade.  When 
processing  the  captain's  segment,  the  following  additional  information 
is  needed  and  is  in  Record  1:  Advanced  Entry  Specialties,  the  percentage 
of  captains  with  less  than  8 years  of  service  in  each  time  period,  and  the 
time  when  all  captain  flows  in  the  network  have  more  than  8 years  of  service. 
When  processing  the  lieutenant's  segment,  the  following  additional  infor- 
mation is  needed  and  is  in  Record  7:  the  percentage  of  lieutenants 

promoted  to  captain  who  have  8 or  more  years  of  service  in  each  time  period, 
and  the  time  when  those  lieutenants  promoted  to  captain  will  reach  their 
8th  year  of  service. 

Rate  Data  for  all  grades  per  year  (9-ATTHI ,9-ATTL0,9-PRMT,0FL0HI  .UFLOHI , 
OFLOLO.UFLOLO) 

Row  2 for  Grade  2 rates 
Row  3 for  Grade  3 rates 
Row  4 for  Grade  4 rates 
Row  5 for  Grade  5 rates 
Row  6 for  Grade  6 rates 
Additional  CPT's  data 

Row  1 20-AES  Codes,  9-CPTRM  Rates,  1-NBRAES,  1-ICHG 
Additional  LT's  data 

Row  7 20-AES  Codes,  9-CPTRM  Rates,  1-ICHG 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFODSAP.TOURATIOS 

X 

PFODSAP. INPUT1 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.TOUR 

PFCAA.MATRIX-MODUL 


NARRATIVE  DESCRIPTION: 

This  file  contains  the  utilization  ratios  and  tour  lenqths  of 
preferred  specialty  pairings  of  un  to  50  specialties  for  50 
preferred  alternates  for  Grades  0-6  thru  0-4. 


RECORD  6 U.R's  for  GRADE  6 
RECORD  5 U.R's  for  GRADE  5 
RECORD  4 U.R's  for  GRADE  4 
RECORD  3 Tour  lengths  for  GRADE  6 

RECORD  2 Tour  lenqths  for  GRADE  5 

RECORD  1 Tour  lengths  for  GRADE  4 


Codes 

99  no  preference. 

R8  preference  of  combat  arm# 
positive  number  less  than  88 
indicates  utilization  ratio 
for  preferred  specialty  pairing. 
(M,M)  is  location  of  tour 
length  of  spec  M,  in  records 
for  tour  length. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODRECUD01 
CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  unk  - FMPS  file  RECORD  SIZE:  un|<  . fMPS  file 
RECORD  FORMAT: 


UNFORMATTED 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS) :* 

NORMAL  SIZE  - 1 TRK,  (I  POS)  MAXIMUM  SIZE  - 5 TRKS,  (1  POS) 

♦catalogued  with  POS  granularity 

MEDIA: 


| j CARD 

1 CARD  IMAGE  ON  DISC 
RECORD  FORMAT  (IF  REQUIRED): 


DISC,  DEVICE  TYPE  FI 4 
TAPE 


N/A 


I INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFFMPS.MEDFMPSABS 

X 

or 

PFFMPS. LARGEFMPSABS 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.FMPS. MODULE 
PFCAA. FMPS.MODULE/CPT-LT 
PFCAA. RECOVER 
PFCAA. MODIFY 
PFCAA. POST-OPT 

NARRATIVE  DESCRIPTION: 

This  file  is  used  by  FMPS  in  case  the  computer  system  crashes. 
Appendix  B to  FMPS  programers  reference  manual  explains  its  full 
function. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODR8SUD01 
CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  82  RECORD  SIZE:  80  characters 

RECORD  FORMAT: 


UNFORMATTED 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS) : 
NORMAL  SIZE  - 1 


MAXIMUM  SIZE  - 1 


MEDIA: 


CARD 


DISC,  DEVICE  TYPE 


F14 


□ 

CARD  IMAGE  ON  DISC 

1 TAPE 

RECORD 

FORMAT  (IF  REQUIRED): 

Cd  1 

212, 2A4:  [NSPEC,NYRS,NAME1 .NAME 2] 

Cd  2 

FREE; 

' AUTHMX( GRADE ),GRADE=  1,6] 

Cd  3 

FREE; 

NPRO, (SPECLT(K) ,K=1 ,NPRO)] 

Cd  4 

FREE; 

NBRAES,(AES(K) ,K=1 .NBRAES)] 

Cd  5 

FREE; 

[GRADE, BGNYOS.ENDYOS] 

Cds  6&7 

FREE; 

POP(GRADE.J) ,J=BGNYOS,ENDYOS] 

Grade  6 Data 

Cds  8&9 

FREE; 

R8WPR( GRADE, J),J=BGNYOS, ENDYOS] 

Cd  10 

FREE; 

UFLOLO.OFLOLO.UFLOHI .OFLOHI  for  Grade  6] 

Cds  11-15 

Same  as  cards  5 thru  9 

Cds  168.17 

FREE;  | 

[RBWOPR(GRADE , J ) ,0=BGNY0S .ENDYOS] 

Cd  18 

Same  as  card  10  for  the  grade  last  defined 

Grade  5 Data 

Cds  19-26 

Same  as  11-18 

Grade  4 Data 

Cds  27-34 

Same  as  11-18 

Grade  3 Data 

Cd  28 

FREE; 

'GRADE, BGNYOS.ENDYOS] 

Cd  29 

FREE; 

' POP ( GRADE, J),0=BGNY0S, ENDYOS] 

Cd  30 

FREE; 

l R8WPR(GRADE,J),J=BGNY0S, ENDYOS] 

Cd  31 

FREE; 

[R8W0PR( GRADE ,J) .J-BGNYOS, ENDYOS] 

Grade  2 Data 

Cd  32 

FREE; 

[UFLOLO.OFLOLO.UFLOHI , 

OFLOHI  for  Grade  2] 

Cd  33* 

FREE ; LTR8W( GRADE , J ) , J-ENDYOS , ENDYOS+NYRS] 
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RECORD  FORMAT  (continued):  ODR8SUD01 

Cd  34*  FREE;  CLTR8W0 (GRADE, J) ,J=ENDYOS,  ENDYOS+NYRS  ] 

Cds  35-41  Same  as  28-34 

Cd  42  FREE;  CKGRADE,SEGCOL,LGRADE,SEGLTC,MGRADE,SEGMAJ] 

Cds  43-52  FREE;  £spec  #1,  SARRAY(I),  ...  spec  #5,  SARRAY(5) 

spec  #6,  SARRAY(6) , ...  spec  *10,SARRAY(10) 


spec  #46,  SARRAY(46) . . . spec  #50,  SARRAY ( 50) ] 
Cds  53-62  FREE;  [spec  #1,  UPBND(I),  ...  spec  #5,  UPBND(5) 


spec  #N46,  UPBND(46) , ...  spec  #50,  UPBND(50)] 
Cds  63-72  Same  as  43-62 

Cds  73-82  Same  as  43-52 


*Additiona1  Attrition  Rates  for  Lieutenants 


Grade  2 Data 
Grade  ] Data 


Grade  6 Data 


for  Grade  5 
for  Grade  # 
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INTERACTIONS  WITH  PROGRAMS: 

FILE  NAME: 

ODR8SUD01  (continued) 

PROGRAM  NAME 

INPUT 

OUTPUT 

PFODSAP. INITIAL 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 
PFCAA. INITIAL 


NARRATIVE  DESCRIPTION: 

This  Is  one  of  the  two  Input  files  with  user-supplied  data  (the  other  one  Is 
ODRATUD01) . A third  Input  file,  SACS  tape  file,  Is  furnished  by  USAMSSA. 
Parameter  values  for  the  number  of  specialties,  number  of  years  to  project, 
problem  name,  total  authorized  amounts  by  grade,  identification  of  specialties 
to  Include  In  subsegment  1 for  the  field  grade  segments,  and  identification  of 
advanced  entry  specialties  are  Input  via  this  file.  Populations  and  two  sets 
of  rates  (attrition  rates  to  Include  losses  caused  by  promotion  to  next  higher 
grade  and  attrition  rates  that  exclude  losses  caused  by  promotion  to  next  hlghe 
grade)  are  Input  for  the  years  of  service  to  be  represented  for  grades  0-6 
thru  0-1.  Parameter  values  that  determine  which.  If  any,  field  grade  segments 
will  be  processed  In  two  subsegments  are  also  Input.  If  any  of  the  field 
grade  segments  are  to  be  processed  In  two  subsegments,  then  additional  data 
Is  Input  used  to  limit  the  amount  of  flows  Into  the  specialties  in  sub- 
segment  1. 


ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODSACUD01 . 

CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  1 

RECORD  FORMAT: 

~T~|  unformatted 

FILE  SIZE  (#  OF  TRKS) : 
NORMAL  SIZE  - 7 

MEDIA: 

j CARD 

CARD  IMAGE  ON  DISC 


RECORD  SIZE:  6,600  (11,6,100)  words 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


MAXIMUM  SIZE  - 7 


"jn  DISC,  DEVICE  TYPE  F60 


TAPE 


RECORD  FORMAT  (IF  REQUIRED) : N/A 
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PRECEDI  0 Pace  bunk-not  filmed 


INTERACT  I ONS  WITH  PROGRAMS: 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFODSAP. LINKAGE 

X 

X 

PFODSAP. INPUT1 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA. START 
PFCAA. LINK-MODULE 
PFCAA. MATRIX-MODUL 


NARRATIVE  DESCRIPTION: 

Contains  specialty  requirements  created  from  SACS  requirement  data 
tape  by  year,  grade,  and  actual  specialty  number. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODSACUD02 

CATALOGUE  OPTIONS:  PUBLIC,  READ-ONLY 

NUMBER  OF  RECORDS:  1 RECORD  SIZE:  6,600(11,  6,  100)  Words 

RECORD  FORMAT: 


UNFORMATTED 


FILE  SIZE  (#  OF  TRKS ) : 
NORMAL  SIZE  - 7 


MEDIA: 


CARD 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


MAXIMUM  SIZE  - 7 


DISC,  DEVICE  TYPE  F60 


CARD  IMAGE  ON  DISC 


TAPE 


RECORD  FORMAT  (IF  REQUIRED) : N/A 


* 


k. 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME  INPUT  OUTPUT 

PFODSAP. INITIAL  y 


CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA. INITIAL 
PFCAA. START 


NARRATIVE  DESCRIPTION: 

Cont3ins  specialty  requirements  created  from  SACS  requirements  data 
tape  by  year,  grade, and  actual  specialty  number.  This  file  holds 
the  requirements  values  at  the  start  of  processing.  It  is  used  to 
initialize,  or  re-initial ize  the  system  to  the  start  of  processina 
for  grade  6 rather  than  rerun  PFCAA. SACS.  9 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODSAPUD03 

CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  VARIABLE;  depends  RECORD  SIZE:  49  characters 
upon  LP  problem  size 
RECORD  FORMAT: 


UNFORMATTED  | ^~j  FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS) : 
NORMAL  SIZE  - 50 


MAXIMUM  SIZE  - 200 


MEDIA: 


DISC,  DEVICE  TYPE  F60 


CARD  IMAGE  ON  DISC 


TAPE 


RECORD  FORMAT  (IF  REQUIRED): 


Column 

Name 

“1 

Identl ty 

2 

Prefix 

3 

Year 

4-5 

From  Specialty 

6-7 

To  Specialty 

8-9 

Segment  ID 

10-21 

Activity 

22-33 

Lower  Limit 

34-45 

Upper  Limit 

46 

Mratlo 

47 

Nratlo 

48 

Tour  Length  M 

49 

Tour  Length  N 

0 filled  If  Identity  Is  "R"  - Row  record 
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- 


INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME  INPUT  OUTPUT 

PFODSP. DATABASE  x 

PFODSP. DBCREATE  X 


CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.DB-MODULE 
PFCAA. IMPLEMENT 
PFCAA. LINK-MODULE 
PFCAA. SEP-MODULE 


NARRATIVE  DESCRIPTION: 

The  file  contains  the  cumulative  file  of  active  segments.  It  is  created 
by  PFODSAP. DATABASE  and  then  analyzed  by  the  user  with  the  MIRADS  system. 
Upon  acceptance  of  the  segment,  this  file  is  copied  into  0DSAPUD18,  which 
becomes  the  record  file.  This  file  is  purged  of  inactive  grade  records 
during  the  PFCAA. SEP-MODULE  run.  It  is  the  input  from  which  MIRADS 
constructs  the  CUMSEG  data  base. 


ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODSAPUD04 

CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  VARIABLE;  deoends  record  SIZE:  in  characters 

upon  size  of  LP  problem 
RECORD  FORMAT: 


UNFORMATTED 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (§  OF  TRKS) : 
NORMAL  SIZE  - 10 


MAXIMUM  SIZE  - TOO 


MEDIA: 


CARD 


DISC,  DEVICE  TYPE  F60 


X I CARD  IMAGE  ON  DISC 


TAPE 


RECORD  FORMAT  (IF  REQUIRED): 

Col umn 

Format 

Name 

_1 

in — 

Prefix 

2 

11 

Year 

1-4 

12 

From  Specialty  (M) 

5-6 

12 

To  Specialty  (N) 

7 

IX 

Blank 

8 

11 

Mratlo 

q 

11 

Nratlo 

10 

11 

Tour  length-M 

11 

11 

Tour  length-N 

12-16 

15 

First  ALT  Source 

17-20 

14 

Percent  of  1st  ALT  Source 

21-25 

15 

Primary  Source 

26-29 

14 

Percent  of  Primary  Source 

30-1/1 

15 

2d  ALT  Source 

35-38 

14 

Percent  of  2d  Alternate 

INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFODSAP .SORTW 

X 

X 

PFODSAP .SORTXY 

X 

PFODSAP. COMBIN 

X 

PFODSAP. LOCOLS 

X 

PFODSAP. RES2GR 

X 

PFODSAP. LOCOLC 

X 

PFODSAP. LOCOLL 

CATALOGUED  RUNSTREAM  REFERENCES: 

X 

PFCAA .MATRI X-MODUL 
PFCAA.DB-MODULE 


NARRATIVE  DESCRIPTION: 


This  file  is  created  by  the  matrix  generator  to  be  combined  with  the 
data  base  solution  file  generated  by  FMPS  (0DDBSUD1.)  to  create  the 
data  base.  The  data  are  drawn  from  several  routines  within  the  matrix 
generator  and  then  sorted  before  combining  to  produce  the  data  base 
file  for  the  segment  (ODSAPUD07). 


VI 1 1 -44 


ODSAS 

FILE  DESCRIPTION 


1 


FILE  NAME:  ODSAPUD07 

CATALOGUE  OPTIONS;  PUBLIC 

NUMBER  OF  RECORDS:  VARIABLE;  depends  REC0RD  SIZE;  7fi  characters 

upon  LP  firoblfetn  size 
RECORD  FORMAT: 


UNFORMATTED  FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (f  OF  TRKS) : 
NORMAL  SIZE  - 150 


MAXIMUM  SIZE  - 500 


MEDIA: 

I I CARD 


DISC,  DEVICE  TYPE  FI/1 


CARD  IMAGE  ON  DISC 


TAPE 


RECORD  FORMAT  (IF  REQUIRED): 


Column 

Name 

1 

Identity 

2 

Prefix 

3 

Year 

4-5 

From  Specialty 

6-7 

To  Specialty 

8-9 

Segment  ID 

10-21 

Activity 

22-33 

Lower  Limit 

34-45 

Upper  Limit 

46 

Mratlo 

17 

Nratlo 

48 

Tour  Length-M 

49 

Tour  Length-N 

50-54 

First  Alternate  Source 

55-58 

Percent  of  First  Alternate  Source 

59-63 

Primary  Source 

64-67 

Percent  of  Primary  Source 

68-72 

Second  Alternate  Source 

73-76 

Percent  of  Second  Alternate  Source 
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L- A 


INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 


INPUT  OUTPUT 


PFODSAP. COMBIN 
PFODSAP. RECORD 
PFODSAP. DBCREATE 
PFODSAP. DATABASE 


X 

X 

X 

X 


CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA. DB-MODULE 
PFCAA. IMPLEMENT 


NARRATIVE  DESCRIPTION: 

This  file  contains  the  solution  information  from  the  FMPS  activity 
pertaining  to  the  Grade/Segment  just  finished  and  the  data  items  for 
each  row  and  column  produced  in  the  matrix  generator  activity.  It 
contains  all  the  input  from  which  MIRADS  constructs  the  CURSEG  data 
base.  \ 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODSAPUD1 0 
CATALOGUE  OPTIONS;  PUBLIC 

NUMBER  OF  RECORDS:  VARIABLE;  depends  RECORD  SIZE:  fi.finn  wnrris  fil.fi. inn) 

upon  amount  of  SACS  data 
RECORD  FORMAT: 

FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


UNFORMATTED 


FILE  SIZE  (#  OF  TRKS) : 

NORMAL  SIZE  - 5 

MAXIMUM  SIZE  - 10 

MEDIA: 


CARD 

X 

DISC,  DEVICE  TYPE  FI  A 

CARD  IMAGE  ON  DISC 

TAPE 

RECORD  FORMAT  (IF  REQUIRED):  N/A 
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INTERACTIONS  WITH  PROGRAMS : 


1 


PROGRAM  NAME  INPUT  OUTPUT 

PFODSAP. SACSCREATE  v 


CATALOGUED  RUNSTREAM  REFERENCES: 
PFCAA. SACS 


NARRATIVE  DESCRIPT I ON : 


This 

from 

then 


f !e  v°cnrcns  the  SACS  reauirements  by  soecialty  and  nrade  as  derived 
latest  SACS  tape.  Once  the  user  is  satisfied  with  the  new  SACS  data, 
this  file  is  copied  to  ODSACUD02  (after  removing  the  read-only  option) 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  0DSAPUD18 
CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  VARIABLE;  depends  record  SIZE:  49  characters 
upon  LP  problem  size 
RECORD  FORMAT: 


UNFORMATTED 

FILE  SIZE  (#  OF  TRKS) : 
NORMAL  SIZE  - 200 

MEDIA: 


1 FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


MAXIMUM  SIZE  - 500 


CARD 


DISC,  DEVICE  TYPE  FT  A 


CARD  IMAGE  ON  DISC 


TAPE 


RECORD 

FORMAT  (IF  REQUIRED): 

Column 

Name 

1 

Identity 

2 

Prefl x 

3 

Year 

4-5 

From  Specialty 

6-7 

To  Specialty 

8-9 

Segment  ID 

10-21 

Activity 

22-33 

Lower  Limit 

34-45 

Upper  Limit 

46 

Mratlo  ^ 

47 

Nratlo  1 

48 

Tour  Lenqth-M  I 

49 

Tour  Lenqth.N  J 

0 filled  If  Identity  Is  "R"  - Row  record 
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INTERACTIONS  WITH  PROGRAMS: 

PROGRAM  NAME  INPUT  OUTPUT 

PFODSAP. SEPARATE 
PFODSAP. RECORD 
PFODSAP. DBCREATE 
PFODSAP. DATABASE 


X 

X 

X 


CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.DB-MODULE 
PFCAA.SEP-MODULE 
PFCAA. IMPLEMENT 
PFCAA. LINK-MODULE 

NARRATIVE  DESCRIPTION: 

The  file  contains  those  cumulative  (active)  records  (for  grades  that 
have  not  had  all  possible  input  considered)  in  the  ODSAS  system.  Upon 
completion  of  a segment  and  the  solution  approved  by  the  user,  the  file 
is  updated  by  copying  ODSAPUD03  into  the  file  and  then  separating  out 
all  records  pertaining  to  records  whose  grade  is  greater  than  (current 
grade  plus  one);  e.g.,  upon  approval  of  the  last  LTC  segment  (grade  5), 
all  COL  records  (grade  6)  would  be  separated.  This  file  is  the 
permanent  cumulative  data  base,  whereas  ODSAPUD03  is  the  temporary 
cumulative  data  base. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME  ODSAVUDfll . 

CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  Variable  RECORD  SIZE:  Unk.  FMPS  file 

RECORD  FORMAT: 


UNFORMATTED 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  Of  TRKS)* 

NORMAL  SIZE  - 200  TRKS  (4  POS)  MAXIMUM  SIZE  - 50n  TRKS  (R  POS) 
♦Catalogued  with  POS  granularity 

MEDIA: 


CARD 

CARD  IMAGE  ON  DISC 


DISC,  DEVICE  TYPE 
TAPE 


RECORD  FORMAT  (IF  REQUIRED):  N/A 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 


INPUT 


CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.FMPS-MODIFY 
PFCAA.FMPS -RE COVER 
PFCAA . FMPS-POST 
PFCAA.POST-OPT 


NARRATIVE  DESCRIPTION: 


PFCAA. FMPS-CONTROL 
PFCAA. FMPS-MODULE 
PFCAA. RECOVER 
PFCAA. FMPS-MODULE/CPT-LT 
PFCAA. FMPS-CPT-LT 


Save  file  for  saving  basis  and  restarting  FMPS  solutions, 
when  procedure  'Call  Save'  is  specified  and  read  from  when 
'Call  Restore'  is  specified  as  FMPS  control  statements. 


OUTPUT 


Written  to 
procedure 
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OOSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODSOLUD1. 

CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS: VARIABLE:  depends  RECORD  SIZE:  60  DOUBLE  PRECISION  WORDS 
on  NYRS,  NPREF,  NSPEC 
RECORD  FORMAT: 


UNFORMATTED 


□ 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS) :* 


NORMAL  SIZE  - 10  TRKS,  (1  POS)  MAXIMUM  SIZE  - 50  TRKS,  (1  POS) 

♦Catalogued  with  POS  granularity 

MEDIA: 


CARD 


DISC,  DEVICE  TYPE  F60 


CARD  IMAGE  ON  DISC 


TAPE 


RECORD  FORMAT  (IF  REQUIRED):  (see  para  2.6.3  In  FMPS  programmers  reference 
manual  for  full  details) 


m 

2 

3 

4 


f: 

(9 

10 

(11 

(12 

13 

(14 

(15 

(ie 

(60) 


wa 

■TO 

ROlJS" 

RN 

HAST 

ROWN 

AMEl 

AT  .... 

AA 

roWn 

AMEl 

act! 

VI tv '.  V" 

IRow  Activity  Value 

ROWN 

AMEl 

LLIM 

IT 

ILower  Limit  Value 

ROWN 

AMEl 

ULIM 

IT 

Upper  limit  v 

alue  . ..  . 

ROWN  . . I.AME2.  _ _ . 

(data  for  row  names) 

nr 

!i 

(4) 

(5 

(6) 

(7) 

(8) 

(9) 

(10) 

llil 

(13) 

(14 

(15) 

(16) 

m. 


COLUMN  RECORD 


mjr 


mjr 


"M 


Ai 

w 


roor 


Ml 


to- 


TDT 


mr 


twt 

mr 


Column  Activity  Value 


LLIM  It 

Colunn  Lower  Limit  Value 


AMEl 


mr 


me  ...  . 

ULIM  I IT 

Column  Upper  Limit  Value’ 


COLN 


AME2 


(data  for  column  names) 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME  INPUT  OUTPUT 

PFODSAP. LINKAGE  X 

PFFMPS .MEDFMPSABS  X 

or 

PFFMPS. LARGEFMPSABS 


CATALOGUED  RUNSTREAM  REFERENCES : 


PFCAA.FMPS-MODULE 
PFCAA. LINK-MODULE 
PFCAA . FMPS-MODULE/CPT-LT 
PFCAA. FMPS-CONTROL 


PFCAA. RE COVER 
PFCAA. FMPS-MODIFY 
PFCAA. FMPS-CPT-LT 
PFCAA. FMPS-RECOVER 


NARRATIVE  DESCRIPTION: 

Output  file  for  selected  parts  of  FMPS  solution,  to  input  to  segment 
linkage  major  activity.  Contains  the  name,  activity  code,  activity, 
lower  limit,  and  upper  limit  values  for  all  requirements  constraints 
(rows)  and  all  arcs  (variables)  named  XN--.  These  data  are  used  to 
compute  the  unfilled  requirements  resulting  from  the  last  segment 
solution. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  ODTURUDOl 
CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  Saparamlter  cards  RECORD  SIZE: 
^COrSPFoRMAT°0  Preferred  specialty  paTrTnqs 


UNFORMATTED 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE  (#  OF  TRKS) : 

NORMAL  SIZE  - 2 

MAXIMUM  SIZE  - 1?q 

MEDIA: 

CARD 

r 

DISC,  DEVICE  TYPE 

CARD  IMAGE  ON  DISC 

TAPE 

RECORD  FORMAT  (IF  REQUIRED): 

“Cdl  A6;  [MonrJ 

Cd  2 FREE;  [/1BRPRO,  NPROB(J) ,J=1 , NBRPRO] 

Cd  3-N  212,  3(F5. 3,12) ; [IPR,  I ALT,  (UTIL(K) , TOUR(K) , K-F,4)J 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME  INPUT  OUTPUT 

PFODSAP . TOURATIOS  X 


CATALOGUED  RUNSTREAM  REFERENCES: 
PFCAA.TOUR 


NARRATIVE  DESCRIPTION: 

The  first  card  image  is  either  "CREATE"  or  "UPDATE."  If  "CREATE," 
then  new  ODRATUD01  is  to  be  created;  otherwise,  "UPDATE"  implies’ 
ODRATUD01  is  to  be  updated  with  following  data  cards.  The  second 
card  identifies  those  specialties  that  cannot  be  alternates.  The 
rest  of  the  file  contains  the  preferences  for  specialty  pairings. 
Along  with  each  preference  is  the  utilization  ratio  and  the  tour’ 
length  of  the  primary  specialty  in  each  grade  6 through  4.  The  tour 
length  is  multiplied  by  10  for  internal  program  logic;  i.e.,  a tour 
length  of  3 is  entered  as  30. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  OO001UD90 
CATALOGUE  OPTIONS:  PUBLIC 
NUMBER  OF  RECORDS:  VARIABLE 
RECORD  FORMAT: 


RECORD  SIZE:  132  characters 


UNFORMATTED 


FILE  SIZE  (#  OF  TRKS) : 

NORMAL  SIZE  - Variable 

MEDIA: 


CARD 


CARD  IMAGE  ON  DISC 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


MAXIMUM  SIZE  - 1,000 


DISC,  DEVICE  TYPE  F14 


TAPE 


RECORD  FORMAT  (IF  REQUIRED): 

Each  record  Is  a 132-character  print  line 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME  INPUT  OUTPUT 

N/A 


CATALOGUED  RUNSTREAM  REFERENCES: 


PFCAA.SACS 
.TOUR 
.INITIAL 
. RUN-COLXX 


. RUN-COL  1 
.RUN-COL2 
.RUN-LTCYY 
.RUN-LTC1 


. RUN-LTC2  .RUN-CPT 

. RUN-MAJZZ  .RUN-LT 

. RUN-MAJ1  .MODIFY 

.RUN-MAJ2 


NARRATIVE  DESCRIPTION: 

This  file  is  the  system  breakpoint  file.  Upon  normal  termination  of 
a runstream,  this  file  is  copied  to  PFPRINT  as  an  element  (OCOPY.I) 
except  for  the  ’’MODIFY"  runstream,  which  is  SYM'd  to  the  printer. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  SACSTAPEIN.  (called  SACS  "A"  Tape;  Personnel  and  Equipment  Detail 

Record  File) 

CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS:  Variable.  RECORD  SIZE:  76  characters,  blocked  95 

RECORD  FORMAT: 


UNFORMATTED 


^~~j  FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE: 

NORMAL  SIZE  - 1 reel  of  tape  MAXIMUM  SIZE  - 2 reels  of  tape 


MEDIA: 


DISC,  DEVICE  TYPE 


CARD  IMAGE  ON  DISC 


TAPE  BOO  BPI,  EBCDIC 


RECORD  FORMAT  (IF  REQUIRED): 
Characters  Field  Name 


1-6 

7-12 

13-18 

19 

20-21 

22-40 

41-42 

43-44 

45-53 

54-58 

59-76 


FILLER 

EDATE 

TDATE 

FILLER 

GRADE  (e.g.,  06) 


FILLER 

PRIMARY  SPECIALTY 
ALTERNATE  SPECIALTY 
FILLER 

AUTHORIZED  STRENGTH 
FILLER 
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INTERACTIONS  WITH  PROGRAMS: 


PROGRAM  NAME 

INPUT 

OUTPUT 

PFODSAP .SACSEXTRACT 
(CARD  DECKS) 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.SACSEXTRACT  (copy  of  card  deck  runstream  used  on  System  3 
for  conversion  to  1600  BPI , FIELDATA  for  use 
on  System  2). 


NARRATIVE  DESCRIPTION: 

This  is  the  PERSACS  tape  file  generated  by  USAMSSA,  from  which  the 
positional  requirements  for  ODSAS  are  drawn. 
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ODSAS 

FILE  DESCRIPTION 


FILE  NAME:  SACSTAPEOUT. 

CATALOGUE  OPTIONS:  PUBLIC 

NUMBER  OF  RECORDS;  Variable 
RECORD  FORMAT: 


RECORD  SIZE:  characters 


UNFORMATTED 


CD 


FORMATTED  (IF  SO,  THEN  SPECIFY  BELOW) 


FILE  SIZE: 


NORMAL  SIZE  - ) reel 


MAXIMUM  SIZE  - 1 reel 


MEDIA: 


□ 


DISC,  DEVICE  TYPE 


CARD  IMAGE  ON  DISC 


X 


TAPE  1,600  BPI,  FIELDATA 


RECORD  FORMAT  (IF  REQUIRED): 
Characters  Field  Name 


1 

2 

3-4 

5-6 

7-19 

20-25 

26-31 

32-40 

41-45 

46-80 


FILLER 

GRADE 

Primary  specialty 

Alternate  specialty 

Filler 

E DATE 

TDATE 

FILLER 

AUTHORIZED  STRENGTH 
FILLER 
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INTERACTIONS  WITH  PROGRAMS: 

PROGRAM  NAME 

INPUT 

OUTPUT 

PFODSAP . SACSEXTRACT 

X 

PFODSAP .SACSPREPRO 

X 

CATALOGUED  RUNSTREAM  REFERENCES: 

PFCAA.SACS 

PFCAA.SACSEXTRACT  (copy  of  card  deck  runstream  used  on  System  3 for 
conversion  to  1600  BPI,  FIELDATA  on  System  2) 

NARRATIVE  DESCRIPTION: 

This  tape  contains  only  the  PERSACS  data  that  pertain  to  officer 
grades  0-1  through  0-6. 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 


runpTFR  Tv 

CATALOGUED  RUNSTREAMS 


1.  Purpose.  - This  chapter  describes  the  format  and  provides 
listings'  of  the  catalogued  runstreams  used  In  ODSAS. 

a.  Hierarchical  Structure  of  Runstreams.  - As  described  In 
Chapter  VI,  Operations  Guide,  the  user  commands  to  execute  any  of 
the  runstreams  are  either  "@START"  or  "OADD.L,"  followed  by  a file 
name  and  an  element  name.  The  element  named  In  the  user's  command 
contains  a set  of  EXEC  8 commands  that  may  themselves  be  references 
to  catalogued  runstreams.  Thus,  a hierarchy  of  EXEC  8 commands  Is 
used  to  simplify  the  operation  of  the  system  for  the  user,  and  to 
define  and  separate  the  subsets  of  the  EXEC  8 commands  that  perform 
specific  functions.  For  example,  the  command— PSTART  PFCAA. RUN- 
COLXX,  which  starts  the  COL  segment— references  the  element  named 
"RUN-COLXX"  In  a file  named  PFCAA.  The  element  "RUN-COLXX"  con- 
tains the  following: 


H*UN,FTP  OQ004H  iCIOl  I 2 I CM  i5qO>  IDOO 

j,b. 




fctSSi*  ODOQlUO'U. 

.bkhpi  fHiNTt/gponiuPto  

i,»Da,p  colonel  unsesmenteo u*cl 

hCLT.IP  Hum 

— ►»*DD,L 


■ tNO 


**54.1  fluinpyaiiij. 
,»i,l  »rct». 

tl 


>JP»PP»k  Pft4»'!<«lP-lA.?nOPpL 

►»*OD,L  PFC»‘*P»t£ 

prc««.rHPS.wocui-i 


»*oo,l  pun 

•8RKPT  PBIN’I 


■ MCE  ODODIUUfO. 

d«S8,»  ODjqIuDPO. 

«iss.«  PFprINT. 

•CQPt.I  OQOOlUPfO.  ,PFPB|NT.CQl«» 
•STM.su  OUOOlUOfO. i .PR 
• Mm 


UNCLASSIFIED 


The  statements  with  the  arrows  In  left  margin  are  commands  to 
execute  other  catalogued  runstreams.  For  Instance,  the  first 
statement  with  an  arrow  (f?ADD,L  PFCAA. DB-MODULE)  refers  to  a 
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1/  AD-A040  832  ARMY  CONCEPTS  ANALYSIS  AGENCY  BETHESDA  MD  F/G  5/9 

OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM  (OOSAS)  DOCUMENTATION. <U) 

may  77  j o Thomas,  g e Armstrong 

UNCLASSIFIED  CAA-D-77-1 »• 


& 


1 


catalogued  runstream  in  the  element  named  "DB-MODULE",  listed 
below: 


•«SG,A  ODQBSuO I , 
•ASG.A  ODSAPuDOJ 
•*SG.A  qdsapuDup 
»ASG,a  ODSAPUDIJ7 
OOSAPuPH 


begin  data  babe  module 


•DELETE. C l 0 T EHP . 
• PPT ■ 1 


•PPT.F  OOSOLUD 1 • 

M»5G.T  0UM|..E2/|o/rnS^I000 

• FREE  OUN|. 

• CAT.P  IQTEHP. if 2/AP07TP«/l000 


•‘SG.A  IOTE"P. 
•USE  10.  . I OT  E HP . 

• USE  1 I .OOOBSUDI 

• use  J.oosAPuom 


• USE 

•dse 


P .OOS»PuDOP 
7 .OU5APuDU7 


• USE  •!  S , UDS*PuDI  a 
M»MT  PEODSAP. DATABASE 


•ADO i LP  SEGMENT 

•pho.l 

• FREE  3 
•FREE  b 


•EPEE  7 
8EPEE  ID 


•EPEE  || 

«EPEE  l» 

w A S G . A ODSAPUDOJ. 

•«sg.t  20. 


W A SG • T 71. 

•»SG.T  77..E60///ID0Q 
• A S G . A ODINPODUI. 

•USE  It. lOUlNPuDOi ■ 


. loCate  beginning  or  column  pecopds 

• PUT  POP  RECORDS  in  y | it  jp, 


• EP.u  ODSaPUUUJ. 


GO  TO  END  OF  file 
PUT  COlUNN  PECOPDS  in  file  21. 

L t * VE  005‘P  UDO 3 UNC"a^®EO 


F C» 

SPLIT  2U. 


L*ST 

split;  21 . 

U«l  T 

»«GT  PEODSAP.DB-COP R£CT_ 
• FREE  It. 

BE  PEE  20« 


•FpEE  21- 

• TEST  T E / 1 / T 3 

OOSAPuOOJ. 


•COPT  22 
SPREE  22 


« S»|P  N£«T  STMT  | E GRADE  » * 


This  is  an  example  of  the  lowest  level  of  the  hierarchy,  and  here 
EXEC  8 commands  are  first  encountered  that  specify  appropriate 
files  be  assigned  and/or  released,  and  that  ODSAS  programs  be 
executed. 
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b.  Index  of  Catalogued  Runstreams.  - Listings  of  all  the 
catalogued'  runs treams  in  this  chapter,  and  a function  statement 
for  each,  are  provided  In  the  remainder  of  the  chapter.  Listings 
are  grouped  In  three  categories— Initialization  phase  runstreams, 
processing  phase  runstreams,  and  ancillary  runstreams.  The  follow- 
ing alphabetical  Index  Is  provided  to  assist  In  locating  the 
respective  runstreams 


Initialization  Phase  Runstreams 

Page 

PFCAA. INITIAL 

IX-7 

PFCAA. SACS 

IX -6 

PFCAA. SACSEXTRACT 

IX-4 

PFCAA. TOUR 

IX-7 

PFCAA. START 

IX-7 

Processing  Phase  Runstreams 

PFCAA. DB-MODULE 

I X - 18 

PFCAA. FMPS-CONTROL 

I X- 19 

PFCAA . FMPS-CONTROL/CPT-LT 

I X -22 

PFCAA. FMPS-MODULE 

I X- 16 

PFCAA . FMPS-MODULE/CPT -LT 

I X - 17 

PFCAA. FREE 

I X - 15 

PFCAA. IMPLEMENT 

I X- 18 

PFCAA. LINK-MODULE 

I X- 14 

PFCAA. MATRIX-MOOUL 

IX-15 

PFCAA. MESSAGE 

I X -28 

PFCAA. MESSAGE-ONE 

IX-28 

PFCAA. MESSAGE-TWO 

IX-28 

PFCAA. PROCURE 

IX-27 

PFCAA. RUN -COLXX 

IX-9 

PFCAA. RUN-COL  1 

IX-11 

PFCAA. RUN-C0L2 

IX-12 

PFCAA. RUN-CPT 

IX-10 

PFCAA. RUN-LT 

IX-11 

PFCAA. RUN -LTCYY 

IX-10 

PFCAA. RUN-LTC1 

IX-12 

PFCAA. RUN-LTC2 

IX-13 

PFCAA. RUN -MAJZZ 

IX-10 

PFCAA. RUN -MAJ1 

IX-13 

PFCAA. RUN-MAJ2 

IX-14 

PFCAA. SAVECOPY/TOTAPE 

IX-27 

PFCAA. SEP-MODULE/1 

IX-26 

PFCAA. SEP-MODULE/2 

IX-25 

PFCAA. SEP-MODULE/3 

IX-25 

PFCAA. SEP-MODULE/4 

I X -24 

I X - 3 


Page 


PFCAA. FMPS -MODIFY 

IX-31 

PFCAA. FMPS -RE COVER 

IX-35 

PFCAA. IMPLEMENT/TOTAL 

IX-37 

PFCAA. MODIFY 

IX-29 

PFCAA. MODIFY/CARDS 

IX-30 

PFCAA. MODI FY/CARDS-CPT-LT 

IX-31 

PFCAA. RECOVER 

IX-33 

PFCAA. RECOVER/ CPT-LT 

IX-34 

PFCAA. ROLLIN 

I X - 38 

PFCAA. ROLLOUT 

IX-38 

PFCAA. SAVECOPY/TODISC 

IX-37 

PFCAA. STD-QUERY/CUMSEG 

IX -40 

PFCAA. STD-QUERY/CURSEG 

IX-39 

PFCAA. UPDATE 

IX-29 

PFODSAP.CUM-DICT 

I X -4 1 

PFODSAP.CUR-DICT 

I X -4 1 

PFODSAP. MAP/DATABASE 

IX -44 

PFODSAP.MAP/DBLOAD 

IX -44 

PFODSAP. MAP/INITIAL 

IX -42 

PFODSAP. MAP/LINKAGE 

I X -44 

PFODSAP. MAP/MATRIX 

IX-43 

PFODSAP .MAP/PROCUREMENT 

I X -45 

PFODSAP. MAP/SACS 

I X -42 

PFODSAP. MAP/SEPARATE 

IX -44 

PFODSAP. MAP/TOURATIOS 

IX-43 

2.  Initialization  Phase  Runs treams.  - The  name,  function  and 
listing  of  the  four  initialization  phase  runs treams  are  as  follows: 

a.  PFCAA . SACSEXTRACT . - Extracts  requirements  data  from 

USAMSSA  tape  for  use  as  input  on  System  2.  Following  is  a copy  of 
the  runstream,  including  the  FORTRAN  source  program,  used  to 
extract  the  specialty  requirements  from  the  SACS  tape  produced  at 
USAMSSA  on  an  IBM  computer.  A translation  of  the  IBM  generated 
tape  is  required  from  800  BPI , EBCDIC  to  1600  BPI,  FIELDATA  and 
must  be  done  on  a computer  system  with  that  translation  capability. 
In  July  1976,  this  translation  capability  existed  only  on  System  3 
at  MILPERCEN.  The  original  runstream  is  in  card  deck  form  and  is 
submitted  as  a batch  job,  since  file  space  is  not  catalogued  and 
saved  on  System  3. 


PFCAA.SACSEXTRACT  Runstream 


yWPt.P  CP  T »QN  LoEREnFELPT  |NRS  PSS-A  ,•  CAA  HIT  NUN  .. 
W«SCif  OOCUUTOI  . i lAN.OUTPUT 

-Mjli.l ilAiUlLMaa 

»Tor 


»P0R,IJ  .SACSEXTNACT 

' oiHtikloN^NMioil , ou  1 1 iii  TTXfnrrTTjnFrmrT 

P«tA  USi/MlHitSt.T  tO.UB////I»ta»t//». 

common  / o p t ion/|nrite 


NAS6|TM|E  TAPE I N . i AC , >*««R 
MASfciT  TAPEOUT. iAC’iAAVEr 

• tint 


MUSE  10it»P£|N. 
muse  HiTapeout. 


fmni»i»jainTiP£. 

»Nmu,*ijiNT*pi 

RCAO|S.FJHlNTAPt«H).l  ■ l.NTAPE) 
MHITCl*,»JJMNt»PC«lll|l*  I i NT  APE  I 


No  TO  i 


N.LiMl 


I C T BL  F • IC+BIN  ♦ »5 


UP  1M..I  u _j_l  il*>> 
I l 4 II  ♦ I 


■'^cobtfj^’if.tNlIji  l lout 
Call  MX  out)  


ljj.UI‘12 
DECODE  I 80 ,f ||, |N|  I U2 I I A .OUT 


CALL  M « I OUT  I 
IP  I I | J*»l .GT. AS I to  To  I 


IJJ.|JI*»6 
utCQOCI78.tlJ.INI  IJ)|I»,0UT 


CALL  PIAIUUTI 
format  1 i iaa . a a i 


- V L 
nr 

’ll 
tJo 

f 31  FORMAT  I AAA | 


TurmaTTa  R , | t A A * A A I 
FORMAT  IA2i|1aa.»A| 
Format  i I 


FORMAT  I AAA  I 

FOHma’I1  NUMBER  Bfr'  tiitl  bill, 6 ACAD  (Qual5  A , t TJ  I 
FOHmATII  TAPE  RUMMERS  ARC  1 , A I «A i * , 1 1 1«  II 


iTT 

03 

100  continue 


-in 


-X 


ContInuE 


|f*u  f apIIs^r? aPI  i a 3 to  JO 

IFIITAPC.uT.ll  Call  ERTRAnIa.'BFWeE  10.  . ') 

IaSgiAI  • NT  APE  * I IIaPE) 

CALL  ERTRANIA.IaSg) 

60  TO  I 

tNQPlLC  II 

endfIle  II 

«NTtEIA|RRQ)lcT8Ll(,|MH|Tt 

furmaTi'  number  of  RECORDS  PRQCimO  EQUALS  ■,!»./ 

A • NUMBER  OF  RECORDS  EXTRACTED  couals  • , I • 1 

llfli _ . 

subroutine  fix  i Out i 

COMMON  /OPTION/INRITE 


30 


_12S_ 


01  MENS  I ON  I OUT  I III 

. f LB  Lfl 


. i A i ICflUP IRfCOliPtAilOUTIllll 

IF  I ICOHP.NEa*  IRETuHn 

FLUIOi*.IOFFI.FlOIA,A,|OuT|R| I " 

■ |F|lD.F.F.Nti>.QMWWI*tTUMN  W Tt«t  FOR  OFFICER  RECORD 

uptflt  . FuauiiAjiBytin.i B..tjJ.;«cT-.*!l«B£1  

if i ionaoe.gt.srincTumn a consider  cOl-l*  only 


ItDAfl  • FLOIO.lA.IOUTlil I 
ITpATE  a Fl0I0.3A.I0UT|3I I 


W STa*'  oati 
• TERMINAL  date 


IX-5 


PFCAA.SACSEXTRACT  Runstream  (continued) 


1 PH  H t • Ft.Pl  l».  I*.  IQUt  I t)  I fc  t»F«»CT  >»I»M  SPtCt»t-TT 

utr  • Flo  I 10(H)  1 OUT  I H I I » EHThHCT  P*l«H»t  SPtCULtT  KEY 

ir  t lHtT.gr.H7  | |P«*<Y  • >1II|H,I1|  IPUT  I 7 | | 

1 A u T h • f LD 1 0 .JH  • I OUT ( 10  II  • HUTHOHIJtO  Su»NT1TT 

PLPi  a ■«.  1 HUTH)  » Fl.pt  111  ■*.  IQwT  I »J  I HUTwOHljtp  |tT 

I »R 1 Tt  • l »R I Tl  ♦ t 

HNIT1I  1 1 .707  1 ltH«Pt.lPf»  . itCHU.ITCHTt.lHUTH 

»02  F'ORhhT  I l » , HI, R7.tgI|H*>  »».»».  Hit 

»U1  FUHpHTt  1»  , 12HH  .«**  > 

RtTuNN 

EM) — ■ 

yHHP ,5  .HBS 

axaT . 

2 

UPHOVE 

bCOPr.tw  l I . .0DC12UT01  » 

"btor 


b.  PFCAA.SACS . - Creates  the  master  specialty  requirements 

file,  ODSACUD02,  and  the  specialty  requirements  report. 


mHUN.  J/HTP  OPUQtS.0701  H.CHH.IUU.gOO 

»TrP£  2.81 

yotLETE » c nPutmiata. . 

JPRT  , l 

^ASg.uP  oaaOlaP?a. — 

kBRKPT  PHJnT«/0D0UIUD70 

uHOS.P  SHf 5 FILE  CHEHF|0h  fO*  OOSHS  uWCLHS5IF|£P 

WH54.T  TAPE*. I*N, 10J»J 

yPELETE.C  tEhppi^Cj 

„HS4tuP  TEhPBISC. ,F/»/PoSFSO  . T£pP  disc  fIlh 

aUSE  10.  ,fE"PplSCa - 

tfCuPY.a  thpe.,10. 

uttEWlNU  tape. 

.FREE  THPE.  ( 

mQelete.c  outiuTupgia — — — 

pFRT  . 1 

M«sa. uP  oaOUTUPOl , .f/fpqs/ 30  p 

MUSE  I 1 . .OPOUTUPOl  • 

■)»I3T  PF0US«P.3HCSfSEf*P  

uPPP.Et 

jFREE.H  ID, 

BFREe.h  It. 

aPHT.F  UPOUTUPOI, — 

»USE  |0. , OPOUTUOO I • 

__aH5  6 , H OUS»PPPtO. 

MUSE  ) 1 . .OOSHPUOIO. 

, 

»«aT  Pf  O0S*P.SaCSC»t*TE 

770*30 

•P"P,E 

aPRT.F  PPSHPUPIO. ________ 

»PHT.l 

mBRHPT  PRINT*  

SThEe  OOUalUPTOi 

aSTM.u  ooaolupTc...m 

U0j0lUD9J# 

w A S (t  , A prj>*  l N Tj  __  

*co*y,i  odcuiudvo.  .m^int.phInT 

wCND 
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c.  PFCAA.TOUR.  - Creates  the  specialty  preferences  file. 
ODTURUD0T 

BAUN,/TP  OBBOI  i 0*0 1 ll,CAA,  1 00 (IDO 

• arm  Ml 

b*BA,p  prc»*-Tou*  boias  call  cp*  torfLtA  m-Ain 
— WUft.t  oPB3iuy»g; 

BABA, A OBOOlWBVO. 

— BainTIMBboIubW 

B"BA,P  ppcaa/tbu»  OOSAl 

Btlt.A  BBTUAUOO I • 

BABA, A OOAATABOI. 

Must  10, iBBBATBBBI • 

B*SA,A  PfOOAAA. 

B*st  AFOPSAP«TOUAAf 10AAJ  

CABAtt 

A.Il.lJ.ll.l*'  __ 




arm  oDBoiueva. 

8BTA.su  BBflPrUPBB. , ,PB 

BAIN 


d.  PFCAA. INITIAL.  - Creates  the  master  Input  parameters 
file,  ODINPUD02,  the  attrition  and  promotion  rates  file,  ODPOPUD01, 
and  the  attrition  and  promotion  rates  report. 

pAUKi/TP  OUOUI  ,lj«OlW,C>>,^U,Suo 

JTTFnm 

gOtUITl.C  OPOUIUPfB, 

BAH,I>  osootuofi. 

«b*kpt  p«i(.r»/oi/poiue»* 

— »hb«,b  uucLminta^  iPBen/Nimn — etu  cat  tot r i i a m.ma 

BAAA.A  PfooBAP, 

b*s4,«  ooribuooi. 

aBATAjL  obaabuooi  . 

wSV  ~ 

b»ba,a  obpjpupoi. 

Bust  to.  (OB^^UBOI  • 

bABA.A  OOinPUOOA. 

bUII  H.,obIHAuS3i. 

A(NA,I  OOInPuOOJ.  . RlH0<{  R/0  HUpl 

— but  srabAAA.iifniTL 

•‘00, P ODRSS'JOOI. 

— mn  ,!  ODlAPUDOI. 

aDATt.L  od  1 RPuPOl • 

— gnra 

SCMA.V  ODP(PUDOi,_  itj.  I,'°  MlJ0_C_ 

JBakpT  prinTT  *""* 

ufRlt  OBOOlUBRS. 

aBTA.'IU  5o6fflu6TS;,~yA 

BtAB  _ 


e.  PFCAA.START.  - Copies  the  master  Input  parameters  file 
(ODINPUD02)  to  the  Input  parameters  file  used  In  the  system 
(ODINPUD01),  and  the  master  specialty  requirements  file  (ODSACUD02) 
to  the  requirements  file  used  In  the  system  (ODSACUD01).  Addition- 
ally, It  Initializes  the  cumulative  data  base  Input  files 
(ODCUMUD01  and  0DSAPUD18) . 


IX-7 


PFCAA. START  Runstream: 


b»S8.>  0DSACUD02 , . START  of  ODltS  PROCESlIWt 

b»S&,»  UU54CUOOI. 

ycppr  opstcuuo;.  .Qgsjmooi . . cppr  ihitialUaion  rut  mauimmwTti 

I.FREE  OUSACUUUi. 

nUiU  odirpupoi. 

h»SO,»  OOinPuOOJ. 

.COPT  QUIRPU002,  .ODIWPUQOI  . I COPT  INITIALIZATION  flu  IIWPUTI 

bF  REE  OOUPUDU2. 

»»SG.*  QOCUMUDQI* 

NEP.I  OOCUNuPOl*  • Cl[«  Cu"*E*  D*’«B»SE 

QBS»PUP1M« 

BED, I ODSAPuOlA*  • clear  curses  database 

NFREE  UPCUNUPOl. 

NFRtt  UDSAPyO|B» 


bPACK  PFPriNT. 


3.  Processing  Phase  Runstreams 

a.  General  Characteristics.  - Each  processing  phase  cata- 
logued runstream  has  the  following  general  characteristics: 

(1)  A unique  run-ID  number,  ending  in  the  grade  segment 
number  and  an  alphabetic  character  identifying  segment  (e.g., 
OD006A  is  the  run-ID  for  COLs  (0-6)  segment  1). 

(2)  All  printing  is  output  to  a BRKPT  file  (OD001UD90  or 
OD001UD95).  At  the  completion  of  each  processing  phase,  the  BRKPT 
file  is  copied  to  an  element  in  the  PFPRINT  file  for  retention. 

(3)  The  commands  to  be  executed  upon  a normal  termination 
in  FMPS  are  placed  in  the  element  named  "RUN"  in  TPF$.  An  abnormal 
termination  in  FMPS  causes  TPF$  to  be  @FREE'd,  and  thus  the  next 
commands  to  be  processed  are  unavailable  and  processing  ceases. 

(4)  A standard  sequence  of  catalogued  runstreams 

(a)  PFCAA. MATRIX-MODUL  (matrix  generator)* 

(b)  PFCAA. FREE  (frees  nonessential  files  before 
starting  FMPS  solution) 

(c)  PFCAA. FMPS-MODULE  (FMPS  solution  for  COL-MAJ 

segments ) 


*Element  names  are  limited  to  12  characters  in  length. 
MATRIX-MODUL  without  an  "E"  at  the  end  of  "MODUL"  is  correct. 
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or: 

PFCAA. FMPS-MODULE/CPT-LT  (FMPS  solution  for  CPT 

and  LT  segments) 

(d)  PFCAA.DB -MODULE  (data  base  creation) 

(e)  PFCAA. IMPLEMENT  (load  MIRADS  data  bases) 

(5)  An  optional  runstream,  PFCAA. SAVECOPY/TOTAPE,  may  be 
©ADD ' d to  save  copies  on  tape  of  the  files  that  are  essential  to 
start  a processing  phase  again  after  subsequent  processing  phases 
have  been  completed.  In  order  to  re-start  a processing  phase,  the 
PFCAA. SAVECOPY/TODISC  runstream  (described  at  Paragraph  4a ( 10) 
below)  must  be  GADD'd  to  copy  the  appropriate  tape  to  disc. 

(6)  A segment  Identification  number  Is  placed  In  an  element 
named  “SEGMENT"  In  TPF$.  This  number  Is  used  In  the  data  base 
creation  activity. 

(7)  Messages  are  sent  to  run-ID  "OD001_"  on  entering,  and 
on  completing,  the  FMPS  module.  This  Is  Implemented  through  the 
MAIL  command  In  the  ED  processor. 


b.  Unsegmented  Grade  Processing.  - The  following  runstreams 
would  be  employed  for  processing  the  five  grade  segments  (the  field 
grades  In  an  unsegmented  mode,  followed  by  the  CPT  and  LT  segments): 

(1)  PFCAA. RUN-COLXX.  - Specifies  all  conmands  to  process 
an  unsegmented  COL  run. 


aHUW./fP  nOOUA" .n,Ql lllCAAiipO. ICQQ 

WTTP(  2 i B A 

aPRt.l 

■«Sfi,A  OOUOlUD'O. 

mbpkpt  PRiKt»/-ouuniun*o , — 

UHOS,P  CULOXIL  UN3t«Ht*TCD  VJ*CL  uNClASJIFltD 

fcUI.lg  .Pyti 

b*OD i L PFCAA. BB-MOBULl 

»«PP.L  PfCA«.|PPHPtNT 

ytND 



B>SS,A  P F C A A . 

btp.l  

Al 

B«PP.L  PFCi».P«flll«-WPPPL 

B»UO,L  PFCAA. P«tt 

bAPD.L  PFf AA.MPB.wnnPlI 

B»PO.l  "UN 

aMUrr  

uF«(C  OUUO|UP*P. 

■*sa.A  Qaaoioaiu. 

bASt.A  PFPAInT. 

■CPPt.1  onnPIPOBu. .PfP*IBf.CQl»« 

ySTM.SU  ODOOIUP’O. I |P* 

a"  IN 
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(2)  PFCAA.RUN-LTCYY.  - Specifies  all  commands  to  process 
an  unsegmented  LTC  run. 

yRuN./TP  QOOOST.mai  i2iCAA.2uQQ.2onn 

yTTPE  2 ,B4 

mASI^.A  Ojm]lUD9B. 

.BRKPT  Ph | nT»/OOUO I UD*S 

fcSiiiLf LU  y<j»LAiltNTt,H OBiiS CALL  CPT  TorFLER 

•elt.io  nun 

yAOO.L  PFCAA.DB-MnDULt 

yAOO.L  PFCAA. IMPLEMENT 

yEND 

yEu.l  SEGMENT 

yAOO.L  PFCAA.HAtHl»-MOOoL 

»«QP.L  PFCAA. FREE 

y*DD,L  PFCAA. FMPS-mOOULe 

mADp.l  Rum 

yBRKpT  PH|rTS 

yFREE  0U0nlUU9S. 

yASG.A  OOOOIUD9S. 

y«SS.A  PFpRlNT. 

uCopt.i  0U00IU09S, .pfPRint.ltCtt 

ySTM.SU  Qu001UU9S. . iP* 

yF  I n 


(3)  PFCAA. RUN-MAJZZ.  - Specifies  all  commands  to  process 
an  unsegmented  MAJ  run. 


i.CAAilQOQ, IQOU 


yTTPC  2 » 6 a 

yAsa.A  QDU0I0P9!,. 

yBRKpT  PR | nTB/OOOO I UD9S 

yRQG , P major  unse<.mEnteo  upsas 

yELT.IO  RUN 

yAQQ.L  PFCAA. QB-MUPULl 

yAOO.L  PFcAA* IMPLEMENT 

MENU 

.10,1  SEGMENT 


r 1 

»PRT. I 

y»uo.L  pfcaa.matr i r.mOOul 
yAOO.L  PFCAA. FREE 


-aud.l  pfcaa.fmps. module 
y*UD,L  run 

ybRKPT  PRINT. 

yFREE  00 00  I U09S • 

y»56.A  OUUUIUORb. 

yASS.A  PFpRlNT. 


ySTM.SU  00001U09S. , .PR 

yf  in 


(4)  PFCAA.RUN-CPT.  - Specifies  all  commands  to  process 
a CPT  segment. 


yRuN./TP  OQOuJC.,G90I|2iCAA,IUOu,IUjo 
yT tpe  2. ha 

yAss.A  UUQO 1 UD9 j . 

yBRKPT  PR|nT»/0UJ0IU090 
y MQ  G . P F T p T A I N SE6"E'<T  ODSaS 


r 


PFCAA. RUN-CPT  Runstream  (continued) 


.Idd"~,l  prc»»«',»fR|**MobuL 
■ *UP.l  Pf£«A»MtE 


»APD,l  PFCAA.F  MPS-NODULEFcFT-Lt 


.BHEPT  P rt  1 (m T • 
■fMEE  PPPulUPSQ. 


n*sa ,1  UUUDlUj»Ut 

■ «<8.«  PFPHlHT. 

.COPnl  UpUUiUO'»U.,PFPSINT»CP' 

■ <TH.su  uuqOIudsq. . .pm . 

■ FIN 


(5) 

LT  segment. 


PFCAA.RUN-LT. 


Specifies  all  commands  to  process  a 


■HuN./tP  nDOiHN.maii2>c«>iSoOiimjo 
.tTPE  2, BA 

k,BNKPT  PN|NT»/UUUUlUU»0 
■Hpg.p  Lt  SESHLNt 


UNCLASSIFIED 


■ Elt  , lu  HUN 
WAPP.L  PFCAA. DB-HOP^LE 


■ A UP  i L PFCA». IMPLEMENT 
U«PP.L  PFcaA. MESSAGE 
.END 

EPil  5EGM£Nt 


TT 

■AuPiL  PFCAA. HAtR|»-MPDUL 

■«UP,L  PFCAA. FHLE 

■APP.L  PFCA*. FMPS.MPPULE/CPt-LT 


b A U P . U HUN 
mBRKPT  PHINtt 


.FREE  ODUOI UP90. 

■«S6it  OUnuluDRp.  

.ASS, A PFPRlNT. 

.CDPTiI  OnaPIUPHP.iPFPHlNT.Lt 

.STM.SU  OuUOlUPSU. , ,PH 

.FIN 


c.  Segmentation-WI thin-Grade , Colonel  Segment.  - The 
fol 1 owi ng  runstreams  would  be  substituted  for  PFCAA . RUN-COLXX , 
described  In  Paragraph  b ( 1 ) above,  if  the  segmentatlon-wlthln- 
grade  option  was  selected  for  the  COL  processing: 


(1)  PFCAA. RUN-C0L1 . - Specifies  all  commands  tc  process 

the  first  COL  segment. 

■ RUN.MPM  DPPPtA.mail»iE>A.t°QllQDP 

■TTPE  1. »A 

■DELETE. C nDUOlUPfB. 

.ASG.UP  OppOlUDTB. 

.BRKPT  PH  INTS/QDPuliiPSS 


.MPG.P  CPlOHEL  SEQMEnT  I 
■ID  Run 


POS*S 


«APD,l  PFCA«<PB-MOPULt 
■aud.l  pffaa, implement 

■ END 

■ EP.l  SEGMENT 

Al 
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PFCAA . RUN-COL  1 Runstream  (continued) 


.ADO.L  PFCAA. METRIX-MOO.l 


• ‘OO.L  PFCA».FR£E 

mAPC.L  PFc«*. FMPS.mOOULE 

y»oo.L  pun 

BRKPT  PRINT 


.FREE  OOOOIUUPS. 

.»S6iA  OUUulUORj. 

.AS 6, A PFpRlNT. 

MCOPY.I  OnOQlUD95. . PFP* 1 N T . COL  I 
•5TM.SU  UOQOIUBPS. . ,PR 


(2)  PFCAA. RUN-C0L2. 
the  second  COL  segment. 


- Specifies  all  commands  to  process 


y«UN,/TP«  oOUOAB.n’Ol 1*»CAA|200U, 1 


yFHEE  0U00JUU9S. 

1*SG,A  QOuulOp9S« 

d*SG,A  PFPPlMT. 

yCQP y , | Qoo01t<095,  ,PF  lMT>COt2 
w5TM.SU  uuOO  I uuvs  . , ,P* 
wF  IN 


d.  Segmentation-Wi thin-Grade , Lieutenant  Colonel  Segment.  - 
The  following  runstreams  would  be  substituted  for  PFCAA. rUN-LTCYY , 
described  in  Paragraph  b(2)  above,  if  the  segmentation-wi thin-grade 
option  was  selected  for  the  LTC  processing: 


(1)  PFCAA. RUN-LTC1. 
the  first  LTC  segment. 


Specifies  all  commands  to  process 


yHUN./TPM  QPUU5A.a90i 1*iCA*i500. i OQQ 
wTYPE  2, BA 

wOSLE  TE » C QPUUlUOfS. 

W A S G , u P 0UQ01U09S. 

KPT  P4HmTI/QU[J1I1UU9' 


.MBS.P  LTC  SEGMENT  l ODS«S 

.AOD.L  PFCA*.UB-»ODULt 

uAJD.l  PFCAAiIMPLEMLuT  

uEND 

■1  SLGME 
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PFCAA.RUN-MAJ1  Runstream  (continued) 


M»DD,L  PFC»**P»T«  | K-POOui. 

M»P0.L  PFc*»-FHtE 

W»PP.l  PFc»»iFMPS-POUUl.E 


UHKFPT  PN|NT» 

UFREE  PDUJIUPRS 

M»SS,»  ODOOluO’3. 

MlSE.P-RFpRlNT. 

uCOPY.I  OjoOlUPPS. .PFPP|NT.P*J| 

uSTP.SU  0U00IUQP6...PW 

yF  IN 


(2)  PFCAA.RUN-MAJ2.  - Specifies  all  commands  to  process 
the  second  MAJ  segment. 

UPUN./tPH  0DuJl*U..iP0IIi.C»*i»00.2QU0 

StYPC  2.9, 

tmg.uR  ooaoiug?s. 

M9PKPT  P«inT»/OoUUIUD»S 

uMDS.P  p».ju«  SC*~r  NT  2 OOStS  ■ 1 

UtLT.lO  nun 

MtJO.L  PFc<«»UB-PnPULt 

«»00,L  PFC»*« InplEPEnT 

mENQ 

uEP.I  SEhhENT 

Hi 

U*CO,L  PFC»*  • P»  TP  | l-NOOUl. 

«»UP.L  PFct«-FHLE 

u»OD,L  PFca**FPPS.PODUtE 

B«OP.L  PUu 

HBHKPT  PNInTF 

urutE  OtfOnlUJ95. 

1,‘SS,*  OhJUIuU’S. 

tlsi.l  PF  PH  lilt. __ 

.CUPT.I  ojoOI U0?9 . .FTP* INT. p» J2 
mSTP.SU  UuUO I PUTS ■ i ■ PP 
uF  IN 


f . Standard  Runstreams  Within  the  Unsegmented  and  Segmented 
Grade  Processing  Runstreams . - the  following  runstreams  are  the 

standard  runstreams  that  are  referred  to  within  each  of  the  process- 
ing phase  runstreams  listed  above. 

(1)  PFCAA. LINK-MODULE.  - Assigns  all  files,  and  executes 
the  linkage  program  to  update  the  specialty  requirements  file 
(ODSACUD0I),  creates  an  input  parameter  file  (ODINPUD01),  for  the 
next  system  segment,  and  produces  the  unfilled  requirements  report. 
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PFCAA. LINK-MODULE  Runstream: 


>*  OUCDlJO»U. 


wBHKpl  Ph lyta/OOUOlUO* 

«OS,P  OuSAs  LlNU-MoOULE 


y»L4,»  Prou3«P. 

~S»PUi)0 


o»S5,»  0U5»PU13IB. 

UCOPT  OuSlPUUUJ. , ODStPOOli. 
yPNEE  OOSaPUJOJ. 

■ FREE  OUSAPUUH. 

U»SS,a  OusOLOOI. 

yUSE  in.. nnSOl UQ 1 . 


y»ss,a  oupopudoi. 

aVSC  12«.auPjJFUQui. 

y*S5,A  oo i kpudo i • 

yFHEE.A  II. 

y»ss,T  II. 

u*3G » 


yUSE  I M . , 0U3ACU0U  I . 

M«Ut.B  Pf  uU5»P.I.1«K3b3 

y»UD,P  ODIMPOOOI. 

yp"D.E 

yCjPr  I I ,0Dl"<PUJ0l  i 
■ JINPUOUI  . 


ytMO 

yORKPT  PR[Nt» 

yPMEE  OJUO'OOPO. 

y3TM.SU  oqqOIu 0 1 0. . ,PH 


• »E»IN  l I NL-MuOULt 


UPDATES  CUMSE4  DATABASE 


(2)  PFCAA. MATRIX -MO PUL.  - Assigns  all  files  for,  and 
executes  the  matrix  generator  program  (which  creates  the  equation 
file,  (ODEQAUD01)  for  Input  to  the  FMPS  programs). 


a*st,A  uosapudqh. 
a«S6.A  Pfnp3«Pi 
WOSE  B.odsaPudoa. 


i.t  oota»uoci. 

■ ■a  on  mPUPOl . 

r».t  ooi**puooi. 

> 

i.a  uusaCuuoi. 

E 1I..J 


i.a  UUHaTuUOI. 

E IU .OORATUDUI , 

E » lUOt QAuoo I . 

r PFuosap.AbS 

3 i p ooimPuuui. 


. MITIII  6ENtR»T0R 


(3)  PFCAA. FREE.  - Releases  all  nonessential  files,  so 
that  FMPS  programs  can  execute  with  a minimum  of  system  overhead 
(If  too  many  files  are  assigned  to  a runstream,  random  errors  can 
abort  an  FMPS  run). 


«FREE  1, 
wPnee  a 

mFhee  * 

yFREt  lu 


BEI.1N  putt  MODULI 
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(4)  PFCAA.FMPS-MODULE.  - Assigns  all  files,  sends  a 
message  that  the  module  has  been  entered,  executes  the  FMPS  program 
to  solve  the  LP  problem  for  the  COL,  LTC,  and  MAJ  segments,  and 
sends  a message  that  the  module  has  completed  processing. 


•AS4.A  ODEBAODOl. 


. »E4|N  FHP5»MODUlE 


S*S4,A 
• *54,  A 


• »S4,A 

•asb.a 

•USE  11 
•USE  1C 

• USE  II 
yUSE  12 


PFFRPS. 
ODPBSuO I . 


OOS»TuDJ| . 
OaHECyOu  1 1 


■oooesuDi . 

. .npSOLUDi . 

• .joewaudoi . 

iB.Bs*yu.U9Ei 


•USE  FMPS. .PFFMPS. 

UUSE  SPPECVP- lOOPECuaOl ■ 
•delete ■ c INVERSE. 

•delete. C uTIlI. 

•DELETE. C UT)l2i 


yAS4,T  Oum I . .F 2/ I U/POS/ IUOE 
• free  Pum« 


•cat , p inverse.  .fi/4moptri</3q0q 
y»ss.«  tNEERSE.. 


•ASS.T  UUm2. .F2/I0/PQS/10U0 


• CAT,P  MATRU.,F2/A‘Hj/tRK/3000 

y»S(,.A  matrix. 

»AS4,T  Duh3«  .F2/|0/POS<'IOOO 

• FREE  DUM  3 . _ 

•CAT . p UT |L 1 • ,F2/aN0/TRx/3O0Q 
»*S6 . A UT  | L 1 ■ 


UUMN. ,F2/ 10/PoS/ 100U 


.‘S4.T 

• FMEE  Dunn. 

•CAT . P UT |L2. ,F2/aAO/T#K/3000 

• *S4  , A U T 1 L 2 . 

yxyT  f MPS.LAR4EFMPSABS 

• a a p . p pfcaa.fmps-contRql 


•ADO  ODEUauDUI. 

. ROM  selection  mas*5  for  d>t«  base 


name 

masks 


MA5KDATM 


Naa*CREm 

N.»»TREU 


e n a a r a 


••••UBS4 

TqTAUTMA 


•»DD,L  PFCAA.MESSaSE-TMO 
• DELETE. C INVERSE. 


yDELETE.C  MATRIX. 

•delete, C UTILI. 
yDELETE.C  uTIl2. 
•FREE  ODEnAUPQI. 
•f ree  inverse . 
.free  UTIlI • 


»FHEE  MAThIX. 
.free  U T I L2  * 


•FREE  ODSOLUOI. 


•free  PFFMPS. 


•FREE  ODSAVUDUI. 
•FREE  QDBECUDQ1. 
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(5)  PFCAA.FMPS-MOpULE/CPT-LT . - Assigns  all  files,  sends 
a message  that  the  module  has  been  entered,  executes  the  FMPS  pro- 
grams to  solve  the  LP  problem  for  the  CPT  and  LT  segments,  and  sends 
a message  that  the  module  has  completed  processing.  The  difference 
between  this  runstream  and  PFCAA.FMPS-MODULE  above,  Is  that  different 
control  statements  (In  PFCAA.FMPS-CONTROL/CPT-LT,  Subparagraph 
(9)  below)  are  employed  In  the  CPT  and  LT  segments. 


W»PO,L  RFCA«.BES«n 
b*95,*  00(8*11001, 
H*»a.*  OOtOLUDI  . 

b*ss,*  pffrfs. 
-MiiS,*  0PD1SU0I. 

»*S  <*.»  ODS»*UOOl, 

~b<iii* PORE  C UPQ 1 . 

bOSE  I 3 ■ OoOBSuO I » 


bOSE  11a, uOtUAUUO 1 . 

— VM.it  12- .ops«vupoi . 

bUSE  FMPS. , PFFMPS . 

yust  SRHECV**  aODRECUPPl  a 

bOELE  TE i C INVERSE, 

bb^LEFE  »C  StlJfl*  ' 

— VP-tLETE  i C UTIL2.  

b»S«,T  DUM l a .FI/ I 0/P0SF | 000 

bFREt  OUWl, 

bC,T.p  inverse,, fe/»«(Oftrk/jooo 

B»S9.t  INVERSE.  

b*S8,T  0Um2 • ,FI/ I O/POS / 1 000 

. _vmt  OVNe, 

bC»T,P  N«TRl*aiF2/b<to/IRk/JooO 

b*S8 . A hihH, 

B»S6iT  UUmJ*iFI/10/’PoS/IOOO 

Pi|iN j i ■ 

• CAT, P UT IL I • iFE/iNO/tHn/lDOO 

M*sa,*  u.u  

b*ss I r OumR  a ,FI/ I O/PO*/ I 000 

bFREt  0 U M a, . ^ 

bc*T (F  OTlL2.,FY>kNO/TVK/JOOO 

b«Sj.A  U T I L 2 a 

8*8'  FHPS,sM»i.LFNPS*8S  " " 
b»UO,P  PFct.FHPj. CONTROL /CPt-Lt 
8*00  ODEwAuOU | • 

eno»t« 

• RON  9ELtCT|0N  M»S*S  FbR  D*t,~i7s 

N»*t H«SnB«St 

MASKS  “ 

N«»«ERtb 

Na«»tNE8 

RES***** 

toT*OtM* 

EN0«T» 

8*00  a L p> C«*'Mt5S«6E-TNQ 

•OtLETE.C  INVERSE.  ~ ” 

• OtLETE.t  >•»  TR  1 « , _ 

NorLtTt.c  uTilTT 

•OtLEIE.C  utlL2. 
bFREt  00 1 0 *00  0 la 

•free  Inverse, 

8*REE  Utlil.  

bFREt  R«TRl»a 

bFREt  UT|l2. 

bFREt  OOSolUOIa  " 

bFREt  PF  F MP5  « 

bFREt  OODnSUOIa 

brRE t 0U9«VO00la 

bFREE  OORECODOI. 


^Tsesin  FNPS-POOULE  Fob  CFT*e1 
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(6)  PFCAA.DB -MODULE.  - Assigns  all  files  and  executes  the 
programs  to  create  the  input  data  base  files  for  the  current  segment 
data  base  and  the  cumulative  data  base. 

.ass, a ood»suQ|. « stain  dm*  »aie  hopulc 

.ass,a  oosapudqj 

.*54, A OUS*PUPUR 

.ASS, A OOSAPuOo? 

..M'iiu Miia»pyen 

.DELETE, C l 0 T fcMP . 

MPRT. I 

»PRT,F  OOSOLUDl. 

r uuhi»,f2/iq/pqs/iooo 

.FREE  OUN|. 

IFOT.P  | Q T E AP , .rE/ARQ/FRA/jQQO 

»‘SS,A  IUTE"P, 

.USE  10..1PTEWP. 

.USE  UiODDBSUDI 

- MUSE 3 .UaSAPUPQi 

.USE  R,OUS»PUDOR 

Bust 

.USE  |8,OD5»PUD|B 

.»8T  PFOU.AP, DATABASE 

.AOO.lP  5E4RERT 

.PRO , E 

.free  3 

.FREE  a 

.FREE  1 

.FREE  10 

.FREE  11 

.free  la  

. AS4 . A ODS AP  wDO  3 , 

. A 54  , T 20. . 

.AS4.T  21. 

.<54, r .FAO///IOQO 

.AS4  .A  01)  1 NPuDOl  . 

.USE  16.  .QDlWPUOUl  ■ 

. uOTaTE  BE 4 1 nn 1 N4  of  column  *e£o*65 

■ PUT  R0«  REC0RQ5  Is  F1EE  iO' 

. SO  TO  EMC  OF  FILE 

» PUT  CQLUPR  RECORDS  IN  FIlE  1 I • 

• lE*VE  00SAPU003  UNCHARSED 

.EP.U  ODSAPU003. 

F C. 

SPLIT  30. 

LAST 

4PLITI  21. 

0"  I T 

U»4T  PFOOSiP.UB-coRRFCt 

.FREE  1A. 

.FREE  20- 

.FREE  l|< 

.TEST  Tefs/TJ . S«|P  REFT  sTHT  |F  4RADE  * A 

wCOPy  2i • «00S*Pu0o3« 

..  -MZ&fLUf. - — — - 


(7)  PFCAA. IMPLEMENT.  - Assigns  and  creates  all  files 
needed  by  the  MIRADS  system  to  load  the  current  segment  and  cumula 
tive  data  bases  and  prepare  them  for  on-line  inquiry. 
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PFCAA. IMPLEMENT  Runstream 


»HUG.P  MHOS  |»PL£NEMAt|ON  FOP  U0!>  >8 

iTsiT*  PFnI«a05.  • btfcTTr]MPLt"t^t  MOBULt 

tULtn.l  Diuumtt. 

LOELEtE.C  S*»CUNSCG, 

-PCLEIE.C  MiCUKSrC. 

kOCLEtE.C  pHLCOHSEG. 

kPELE  TE  . C I NPCPhSI  6 . 

kPCLCTE.C  blCCUHSK,. 

.UELETE.C  S«VCUHSttt. 

•DELCTEil  M»SCU«Sl(., 

»PCLEtC,C  pHLCUHSLG. 

LULLltC.C  ISPCPMStG. 

b»«T.C  PFh|W»P5.«ll(.riL» 

CUKSIG 


kUSE.  9.  ,0j5*PjPUr. 


>»i  proPs*H<PBi.tf. 

b»Ht,SU  Pf  f I NAOS.U | CGEn 

h»up.r  props »p.cun»pitt 

• >UT  ft  f 1 KlDiiUhL  (.tN 


■.««!  P»lhAP>.  I'-PGEN 

u.  * %•  T F*  F MlRAUb«SAV(jLN 

kPUO.P  P|LA»'Stb,.ULEM/LUHSCG 

Mi«t,i  pf  m | k « js.  a aor  i ls 

CP"SCl» 

bAS&.A  utSAPODOjI 


i-k*E 

but 


PPOPSAP*UBl,t’. 


I.»«T.SU  Pf  WIMPS. LlCi.£N 
»A0D  , p ft  opSAP  . CU»'-P  I CT 
»«ldt  PFHImPS. PH Ll.CN 


k A Id  T PA  F Ibtl  1.  I .LlEN 

»«Nt  Pf  m | ,,  »bi  . S«  v IjJIN 

b»PP  ,P  PFCAA.StO-QUtHT/CUMSEG 


(8)  PFCAA. FMPS-CONTROL . - Specifies  the  type  and  sequence 

of  FMPS  control  statements  used  to  direct  the  FMPS  programs  In 
arriving  at  an  LP  solution  for  the  COL,  LTC,  and  MAJ  segments. 


. i, 

OCFINl  PAGE  TITlC 

1 

_ c 

rntt  JOSlS  rips  COL  - HA0 

LP  PHOaLEH 

1 

- C 

call  t . f eh i Lp .uuolfmps i 

L 0 * J T-t  INPUT  utc«  rpo  lP  "A|P|» 

c 

CALL  I'-Pjl 

aA fp 1 1 1 INyiN* £ .Ut IL 1 ANO  uT ILA  PILES  Att,C«EO  111  NASS 

c 

c 

TbTb5  o 

|Bj  

J[  •«•••*•••••••••  ""  1 «•(  !*«•« 


c 

J 

1 N | t 1 AL  1 IE  “AjOI*i  A 1 N 0 «*  . ANO  l-o  CP*0«  INTtRKuPtS 
ASSIGN  1000  tp  «"lJtA 

...  J 

rsS|G*<  IJIO  to  «hrNEi> 

ASSIGN  1010  to  A 1 0 £ 9 

c 

iNtiAiiiE  sphjn?  inU4njpts  fo^  *nM  ai,o  kubs 

A3S16*  10J0  tO  «*F 5 • 

[ 

• IJ*»J  to  *OrtS 

SET  INVERSION  TO  5^ « 1 K T V*LUt 

mm 

A*TT  HO. CM  51  15001  SC  i |f»El.l*l()bAA« 

AA|F  HO.CNt  St  JOUOi  SEt  |FNtk|PlSOPA 

H 

1 f Hta 1 • I 5j 

Set  1 1 P£  or  PXOBLCN  AS  "AAl.lll  N I N I 4 1 1 
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PFCAA.FMPS-CONTROL  Runstream  (continued) 


r 


F Ob  j«* T • -UC 

C mqSCo  OEfInLP  INTERRUPT  TQ  ENABLE  CALL  Tq  SP*|NT 


c 

• ••AFTfc*  *F*l«A  J *71.* *uPt  • •••• 
ASSl«i  20  TO  *»ui 

c 

If  FUI  I'FI'B  rWAU  VUH 

. IN  C*St 

NEED  r0  RLSTAHf 

c 

• ••• 

e 

SETs  CRT7T  i)PT1nal|Tt  .5T.  o rT  v C To  rTE  A 5 T b I L ITT 

FCHPOJ*  0.7 

z 

•••••••  ••••(•  ■§••••  «***4 

1 1 • A A 

• ••• 

C 

ASSIGN  RESTART  flLE  ANp  »TT»CM  to  THIS 

NUN 

JO 

c 

C.  4 L L ATf  ACrt  I xE^Tk'it  , \ / J 

••assign  solution  fill  for  linkage  to 

Nt AT  bEGNLNt • • 

t A l l ITTTThT7 c’u  S 0 lTJO  1 * * TTiTOTTf TTi  s , ne  w 1 

c 

••ASSIGN  SOLUrfGN  tile  FOR  OlUttOE 

I npot 

C A L L A T T » L N ( 'OuD^iUOl  ’ t * J • * 0«TwANiNt"l 

c 

•••LO»Ol1ST5  FOR  SOLUTION  FILE 

AData  • * R a i* o aT*-1 

c A LlLOiOL  I 5 Tjl  I 5 T N » 


AuatA  ■ rh*^o  A T'hT 
Call  LUAOnSTlLlbTCl 


c 

■ C 

C»lL'-oIjIMJt  I'oTms  1 TB  oIS^UV  »ll  IUUITIoNS 

— r — 

c 

CAcL  CONDITION 

SOlvL  The  MROflLttt  A LLC"  I <G  SPRINT  TO  DEFINE  BASIS 

c 

CALL  SP»I„TlNO»»SlSI 

JO 

40  TO  ««0I 

'all  solution 

c 

Save  optimal  solution 

C»ll  5l»c 

CALL  5JLOT|ONIRoHS»LlSTR|COLS«tlS^C»^IEEOHLTl,OOSOLUO^'**CHRPTLR» 

c 

l 2 » 3 . N . 7,  CHAPTER  » 2 . J • *».  6. 71 

lOadlISTS  for  OATa  base  riLE,,»** 

AOAtA-'HASdCATN1 
CALL  LOAOLlST«tISTC.L|ST) 

C 

c _ _ 

c 

c 

• •••••FOLlO  - l N i*  COMMENT  SThTS  nOn-qr  IN  6N|C**«« 

load  risks  for  runs  in  database  file 

c 

c 

CALL  LUAOL 1ST  1 LISTR ,L 1ST  1 
CALL  CONDITION 

c 

c 

c 

CALL  SULUT IUNI cuCS,ESCEpT .L1STC.F  KtONLT , 'OUOBSUOl • , 

c 

|RCHAPftR|i,N,4.f>lJ.CCM4T'rlR,i,N,A.7.*l 

c 

STOP 

c 

c 

• ••••••  ••••*•  ••••••  #••••  A * • A • • • • • 

FOLlO*»I<G  ape  S T **  T $ FOR  The  l*TtRRU>»tS 

c 

1000 

M A j £ N / ^ I NITh 
CALL  C 0 *•  0 1 T | 0 N 

“ £ 

••fcr4E&  “C5TLD  »IU*.ST*LIM  'UFLn  a^nuNNae  1WI V i bN 

CALL  CSFI»CFRrt  Tpf»,#  1 

1 0 1 0 

rro 

CALL  SOLUTION 

t 

SAVE  qF  t 1 h a L $oll  * i on 
call  save 

CaLl  SC^JT  UnI«0»S,II5T>»,LCl5.U5TC.F  ILeCNLTs'UCSQLUO*  »"CHAP i e** 

|2«J.*»*p.7#CC*ApTCn#2#J#*».6,7I 

c 

•••••  LUA0LIST5  FOH  Da**  base  F|Ll**««» 
AOATA*'haShOATP* 

c 

CEll  EJaOl 1 sT I l i 1 ST| 
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PFCAA.FMPS-CONTROL  Runstream  (continued) 


c 

C •••••arOLLO«|NG  CO"1INT  »T«T1  NON-OP  I L AAICbaAa 

■? Lin  gn>s~»B«  w d . s— i >.  om»m  nn 

i 

C CALL  *3L0t  |0'l|BG»S,L  I S T •<  ,COLS,l»ClP»  • LISKiMLIONLTi  •OODHSUO  I * , 

1 

C •••••••••*•*••••*••*••***••••••••••»•» 

cm.  iomm'nm^iTTCt^r-.iisuirnto^it.'oumguui*; 


lACMAPtM,  J.a.i.E.B.CCBAPTUl.I.a.A,  J.Sl 


c 

mjT 

c ••pROCtOUACS  P0»  I/O  CANoM*** 


— nnrrr 

c 

SB  lo  TJBu 

— t 

1010 

[WTfUPU»T5  HJL'MH.lUb’ 

C»LL  SOLUtloN 

c 

CALl  UUtruTf  !U«B»B  .*U  AS  .CIST  I 1 
.••MU  -,EST[0  slnsT«l*h  i'»on 

ABNORMAL 

ttNNlNAtlON 

call  tsri'uMii  r»»r • . • i 

lOAO 

5I0P 

CALL  OUTPUT  I BTCOlStCOLS  i L U T Ul 

C 

C A L L S 0 L u t 1 b N 

■ ••MU  MJTLO  »HSStPl»M  UPON 

AbnOANal 

tlUHINAT ION 

call  csf \ T*r»*  • J 

*10* 

iW 

1 1 W&M  T *0 

ASSli*  1070  TO  **0l 

CALL  CONOltlON 
CALL  5A»C 
(ALL  AIST0BC 


— iir 

|071 

A 5 S 1 x < AO  to 
call  iPPi’.r 

«»0l 

10*0 

BO  to  « » 0 1 

call  »*ie 

CALL  dLSfOHt 
assign  ioso  To 

apheia 

c 

SOa  5*<E  BASIS 
|p«raAa|000 

AP  1 1 A l »Cb  f 1 OoU  1 1 1 B A T 1 ohS 

CALL  Coiouto* 
Hitu«N 

c 

1000 

CND  of  CONTROL 
Cno 

MOilAH 
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(9)  PFCAA . FMPS-CONTROL/CPT-LT . - Specifies  the  type  and 

sequence  of  FMPS  control  statements  used  to  direct  the  FMPS  programs 
in  arriving  at  an  LP  solution  for  the  CPT  and  LT  segments. 


c oefine  pa>.e  title 

"1  TTftt  OOSAS  fhp*  c p t - i.t 

C L*  PRObLEH 

~I  CALL  ENTER  I LR iUuBlFhPS I 

C LOAD  T"E  INPOT  DECK  POP  LP  MAT«l« 

Call  TTFol  ’ ' 

c staudapo  attach  ton  m«th i a , inverse ,ut il i and  otilj  . 

"c  STAnDAHJ  TOLEHLt.CS  sCrtUGs  EAtERT  THC  FOLLOWING 


C ••••••TOlEhisCE  AOjuSTHENTS«PPPp 

IbAB5P'lN»-20 

IBOjSPRNP-JO 

T mm»i.».miL 

c 

~t I'MTUIUE  HajC*  AHJ  HP.UH  EHHOir-rWTEHWUPTS 


J ASSIGN  1000  TO  *"AJlH 

' ASSIGN  1010  TO  »"|HE#  : 

ASSIGN  1020  TO  KloEH' 

"C  |NT|»L|2£  S P h | i.  T |MTt«hUpts  HHfS.AOBS 

ASSIGN  IOJO  TO  ANTS 
ASSIGN  1010  TO  AOSS  ' 

_£ Save  "ESolt  eveRt  itihL.js  cpo  h!n« 

e assign  I U60  TO  at  Ihe  OELETEO  jaN  7a  JDT 

C I T | hE#3S 

T StT  IN.EHS10N  FMG  TO  S>'HINT  VALUE 

c VAIA  HO.CNT  4T  l SOU ( SET  | r pen  1 • I OOAPP 

"c  PPlr  NO,CNT  OT  3000  • SET  |F  4(«|«IS0pp 

I FR£8 I • 1 So 

"C  SET  T TP£  OF  PHObLtn  IS  H~1  N I * I I 

POBjwTp  -l.o 

T HUNTS  r.T£E5l3ILTH  S"IHH  U HIS"  HLll  FJR  ITHT  ro-innnipm 

C •••••!!. GhTp  -I  DELETED  2 3 OCT  TS  JOT*«*»a 

T r»USE.|  JIeInEO  IL'TPTVUMI  VIBUPlC  TU  ENABLE  net'  Tfl  SPRINT 

c •'•AFTER  K F HE  L * INTERRUPT  • •••• 

rssiv.Tu  To  A»ai : 

ASSIGN  10A0  TO  lF«L".A  . 


— t — 

”TJ”?aVL  TpiC  Ba5I51T  TTt;  T IH5T  I U0"P *T  I DNS 

irNCLA«| 

e 

c 

*•••••*  ••••**  ■•••••  • *•••  •«•••  *•** 

SETs  OH|VE  FOR  oPT|HAL|TT  ,GT.  OHIvE  FOR  FEASIBILITY 

c 

PCMPO U • 7 

OEFJNE  INPUT  OtCK!  PPObLCH  NAhE.QBJ  R0*  *N0  RMS 

c 

c 

*•••**•  •••**•  *«••••  *«#*A  ipM 

ASSIGN  NESTaRT  FILE  AND  attach  To  THIS  KUN 

IU 

c 

Call  a T f a ch i west a^T  , i * j 

••ASSIGN  SOLUTION  FlLt  f 0«  LINKAGE  TO  NEXT  SEGMENT#* 

CALL  ATTACH,  •00SOLUCl«,l0,F0NT*AN»NE"l 
\ CALL  ATTACHI  •CCOdSU^l • , i J.FORT^ANiNC*  1 

X 

C 1 1 

CALL  attach,  ♦OOt'JAu^Ol  • *1  1 •CANU,  JNO‘»LT  I 
CALL  I NPuT  , F 1 lE # *0 jEQAUOL 1 • ) 

c 

• loaolists  io«  sOll'io.n  File 

• 0 A T A • 'HASAOaT** 

Call  ldadl  1st ( L ISTR  J 

A 0 A T A • 'MaSKDATh* 

c 

call  LTAwLISTiUSTC) 

HA<c  INITIAL  save  file 

t — 

solve  the  H h o rt L E H »LL0"|NG  SPHInT  to  OEFINt  BASIS 

c 

CALL  CONDITION 
CALL  SPRINT  t NQu  A S 1 S 1 

15 

GO  TO  MOI 
call  Solution 
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PFCAA . FMPS-CONTROL/CPT-LT  Runstream  (continued) 


c 

SA*l  OPTIMAL  solo  t 1 ON 
CALL  5AV[ 

CALL  TJ(.Ui  isr,tRO«S,LlSTN.CaLS  iL  1 1 ■ c »'  IlcohIt  i,oo5btJol*"’«A^'[Mi 

lI.J.NlAiTlCCMApTEn.I.J.n.A.TI 

C 

eiLLTTulbujritUrC.LlSTI 

£ . 

J 

•••••AT OllOAILS  COMMENT  stmts  LON. OP  IN  4»ICA..» 

c 

c 

£ 

CALL  CONUtTlO* 

CALL  SOLUTION  1 *0*3 ,Ll3TM .COLS.CiCtPT iL I 5TC .* tit ONL?, *00085001  • 4 

c 

c 

IAC«APTlH,J,,,,.7.»,CCRA<iTEN.i;,t,*,T1«| 

call  4ULuriu'AicuLiiiici‘'r,LHttiHLtum.T,  tuobaiuoi  • , 
|*C«iPt(*.2,*l«,;>tl,CCH4»,TCRll,nl4i>i>> 

T 


* 


STOP 


— c 

£ 

rOLLO»lN«  ARC  STHTJ  TON  T.HC  INTERRUPTS 

< 

looo 

NAJCM/N INLN 
CALL  Ct  COITION 

CALL  C3F ( 'UrftEt  TPri.*  i 
STOP 

1010 

c 

CaLl  5 (JL u t | un 

SAVE  OPTIMAL  3 0 LU  T ION 

Callstti 

CALL  SOLUT  |ONIPO»S,L  ISTN  .COuS.L  ISUiT  ILE0NLT,*00S0lUdI  * •"CNAPTcN, 

|l.J.n«».JiCc~AprlN,lii,'',6,fl 


t •••••  coallists  ron  OAt,  Basc  mlis 

-1 

CALL  LOaOlISTILISTCiLIST) 


— f- 

5 

c 

c 

• • TTitTOl LC"|KG  CC^HC^T  STMTS  NUN-OP  IN 
LOAO  m a s r j Aon  no.s  in  database  TIlE 

f 

c 

call  l j a jl  1 sf 1 l i 5 M , L i ji ) 
CALL  CONDITION 

t 

c 

Call  sflLotioN i N5TT7tTrTN7TTnrrrrEcTT^TCTrrrT^TtroKLTTTooTJHTt7BTr; 

|NCHAPttAill<,»,ll1,Ct«APrt»,l(«,Ail|l| 

l 

CALL  SLLUT |0N| COLs il AClPT ,L  HTC ,r IlLullt , «UOD»NUOI • , 

c 

l 

STOP 

— 1 — 
1 020 

* sic  t LOH k S MJh  TTTTTTinnrrrri 

60  TO  1000 

c 

_ L 

INTEMUPTS  TON  aN|s,«ubS 

nno 

t^LL  luLUtlON 

CALL  OUTPUT | PtnC»S ,»0«S ,L 1ST  1 1 

call  cs* t tpf » . • i 

STOP 

nfsr 

CALL  SOLUtlOU 

CALL  CSM’WPMEE  T pf  f # • » 

|Ono 

If  6p 

CALL  OUTPUT IBTCOLS.COLSlLIST'JI 

|0I0 

60  TO  10*6 
1 1 • 6M  T • J 

ASSIGN  iUTO  TO  *»0i 
CALL  CONDITION 
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PFCAA. FMPS-CONTROL/CPT-LT  Runstream  (continued) 


CALL  5 

CALL  RESTORE. 


E»  1 T 

C 10*0 

CALL  C0N01T10N 

C1ll  EKB'Olls 

c 

CALL  S»v£ 

t 

C6  JO  "J  CPS 

1070 

ASSIGN  *0  TO  K»Ol 

PJT5 

ClLl  Spll|>.“t 
GO  to  «»0I 

— 

c 

~C*lU~5Tv£ 

C»EL  CSFI'OBNK^t  p»|NT»<  | 

C»lt  HLSTOflt 

ASSIGN  10S0  TO  HF»EJ» 

■ 'pr»  y ii  IIVIMM  11  Bit  ^l,lH,]irV  W 

C »uL  CO'IUITHJn 
*CT'j*N 

c 

2000 

E.«U  OF  COUTPCL  P"OCirtAH 
C NO 

(10)  PFCAA. SEP -MODULE/ 4,  PFCAA. SF.P-MODULE/3,  and 
PFCAA . SEP-MODULE/2 I - Separates  the  records  in  the  cumul ati ve 
data  base  input  file  (0DSAPUD18)  into  two  groups.  Group  one  is 
those  records  for  grades  that  cannot  be  further  updated  (e.g.,  COL 
records  can  be  updated  only  by  the  COL  and  LTC  solutions,  thus,  at 
the  beginning  of  the  MAJ  segment,  COL  records  are  separated  from 
LTC  records).  Group  two  is  those  records  that  can  be  updated  by 
subsequent  solutions.  Group  one  records  are  placed  in  file 
ODCUMUD01,  and  group  two  records  remain  in  file  0DSAPUD18.  The 
version  name  of  the  SEP-MODULE  element  (e.g.,  in  SEP .MODULE/4 , the 
number  4 is  the  version  name)  indicates  the  grade  segment  when  the 
runstream  is  to  be  executed.  The  runstreams  for  the  versions  differ 
in  the  segment  identifier  loaded  in  the  element  named  SEGMENT  in 
TPF$. 

PFCAA. SEP-MODULE/4  Runstream: 


m*sg.a  aunoiwn. 

wSKKPT  PH  |nT»/ODCJD1  UD»S 

MMDS.P  posts  SfP-nOOult  ro"  OR»Pt  * 

ntp.I  SE4HINT 
1 1 

yt  Sfi.ft  P£OOS»P  « BEGIN  SEP-NOOULE 

>»SG.»  OOCPWQPOI 

GUtLETE.t  !*• 

U>« 

k»SG.Up  Ip 

>♦56,0?  17. 

G»S4,»  OP5»PuOI». 

I>.PP4«PuD|B. 

'b»«T  PPOPS»P.StP»»»Tt 

P»pp.p  SEmENT 

*>RPO,t 

,EO,U  0CUH4POI  * . «PP£NQ  NON-cuBB£NT  CUH5 EG  »E CPS  TP  £OE 

•DO  | 1 • 

nit 
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PFCAA .SEP-MODULE/4  Runstream  (continued) 


kCOPT  l S • , I 8 • 
fcOUtTtiC  |8. 
ut>»t»,L  17. 


UDELEtE.C  !>• 

it 


• tO'T  CUSpEHT  CUHSES  HECOHOS  tO  f I LC  IS. 


yNtt  17 
yFHEt  IS 


I o 

wthtt  stops*** 


uBhupt  prints 
yfPEE  ODOulUOSS. 
bS7H.SU  0DO0IU09S. 


PFCAA. SEP-MODULE/3  Runstream: 


b»sg ,*  OPnuluPSS. 

yBRKPt  P«|hTS/OBUUIUB*S 

MHPQ.P  0PS*S  ItP.HQOuLE  PQ«  URtDt  i 


.10,1  SESHENt 

_1L 


u»S4.»  PropS«P 

»«»*■»  oqcuhudqi 


• BEOIN  StS'HOOULE 


mpeiete.c  IS. 
hoelete.c  It. 


U*SS,UP  U 

HSSB.ur  17.. 


y*SS.S  OPSJPUPII. 
MUSE  H.OOUPUDII. 


U»UT  PFOOJ»P.SEP»HSTE 
y»88.p  SEfiHtNt 


yPHP.E 
mEP.U  ODCuHUOOI. 


. -SPrmB  non-cunsent  CUH5E*  »ecps  to  tor 


SOP  |7. 
EXIT 


ucopt  Is. , |S. 


• C0P7  CUSSEnT  CUHSES  HtCOBPS  to  Mle  is. 


eOSTt.L  17. 

Ml;  HP 


yP  E LE 1 1 ib  It. 
ytSEE  Is 
yfstt  it 
UFHEE  18 


yMkt  **005*1' 
yBHKPT  PHINtS 


mepee  ouooiuuss. 

MlYH.su  OpOCIUUSS. i ,PH 


PFCAA. SEP-MODULE/2  Runstream: 


ySSt.S  OPUOIUPSS, 

yfiPKP  T PH|HtS/OBO0il/O»5 

gHQB.P D0SS5  SIP-HQOULE  70*  SRSDC  1 

yEP.I  SESHENt 

11 

ysso.s  prppSSP 


yPELETE.C  |S. 


• SESIN  SlP-HOUULt 


PFCAA . SEP-MODULE/2  Runstream  (continued) 


yXQT  PF0DSAP«SEPAWATE 

H*PO.P  SIumEn T ... 

toPMO.E 

ttEO%u  CUC^HUQOl* > APPfchU  NQn-CURREM  Cuwsi<»  HgCPS  TO  EOf 

AOU  1 7 • 

EXIT 

••copy  . co f'r  cur  win i cumSeg  wtCowus  fo  file  te. 

»oelete  ,c  1 6 > 

•olOATA  ,L  17* 

wfcNO  

toJtLETE.C  1 7 • 

i»F  RE  t 16  

‘toFREt  17 

wFREE  l 8 __ 

wf«ee  pf o js^p 

^PH<pT  PRU-.T6 

k,FKEE  OOUOIUDPS. 

pSTM.SU  UUCOIUDYS. i ,PK 


(11)  PFCAA. SEP -MODULE/ 1.  - Functions  of  this  runstream 

are  similar  to  those  in  Subparagraph  (10)  above  except:  (1)  this 

runstream  will  place  the  remaining  records  in  0DSAPUD18  (i.e.,  CPT 
and  LT  records)  in  the  ODCUMUD01  file,  and  (2)  load  the  cumulative 
data  base  containing  all  grade  records. 


««S<i.6  QQaQlUUPS. 

pBRKPT  PH|nT»/ODOu1UOBS 

PHUH.P  00S6S  SEP-HUPULE  TO  PHoPucC  fH,*L  .tUMSEfc  0>T>  mit 
ptu.i  SEUmENT 

UP 

p»S5.»  PF0DS6P  • BEsItT  sep-module 

aaeunuoai 

«OELETE,C  IP. 

B»s&,gp  16 

»»S<i.uP  17. 

„6SS,»  OOStPUOIB. 

MUSE  18.0as«pu0lg, - 

M*ur  PT 0056P >SEP»R4TE 

M»PO.P  SESWENT 

mPMD.E 

mEO.U  OOCumUPOI. . 6PPEM0  Sun-CuPPEMT  cumseu  beeps  to  eoe 

•uu  17. 

e»it 

ecoPr  u.. ib.  . eoPT  curkEnt  cumSeg  recomos  to  file  ib. 

mPELETE.C  16. 

mD*T»,L  17. 

mENP - 

pOtlETE.C  I 7 . 

pFREE  16  

pFREl  17 

uFREE  ib 

»«DD.L  PFCBB. lARLERCHT' TOTAL 
.FREE  P F QoS  6 P 

I.BHKPT  PP|hT» 

mFREE  QOQQIUURS. 

hSYm.su  onnoiuQPS...PR 


(12)  PFCAA.SAVECOPY/TOTAPE,  - Copies  the  current  version 
of  eleven  (11)  disc  files  to  an  output  tape  for  retention,  so  that 
a processing  phase  can  be  re-started  after  subsequent  processing 
phases  have  been  run. 


•hOG.P  JAV£  ODSaS  PROCESSING  PHASE  FILES  ON  TAPE 

TTroTr-ri  pc  rrm;  output--" — nuTnur-  Tm 

A'ASg.A  OOINPUDOIi  • I -P  p»»AHETER5 

"S « S q i A bO^  » c 0 o (J I • • i.  u ] SfNt  n 1 S~ 

SaSg.A  00D8SU0I.  . FilPS  O.p  TO  OB 

tlso,*  ODSO'lUdI,  , FhPS  O-P  to  L I NKAQE 

SasgiA  oosapudib.  . cup  on  me 

basg.a  oos»puoo><  ' ~ cuPseo  on  file 

BASU.A  OPSAPUnpA, ■ HQ  O-P  to  db 

TaTg.a  oocuMuoot  * . pc**  cum  ob  file 

Bass, a oo s apu ops.  . te m p_ cun  o b f i l£ 

"Sa5G,A  OCRECUOOI.  a FnPS  PECOVEUT  FILt 

«AS3,A  OOSAVUQOI.  . FhPS  SAVE  OASIS  FILE 

StO^T ,51  00  I HPUOO I . i ♦ APE , 

BcQPT.GM  OUSACUDO I . i t APE ■ ^ 

Bcopt,gm  oooasuo I • i t ape . 

ScOP  t I ON  OUSOLUO  I . I TAPE  ■ 

"6c  OPT  I ON  OUSAPUD  I 8 . , T ape  , 

a c 0°  t |G'<  00  SAP  UOO  I . it  APE  i 

BCOPT  tSM  ODSAPUO’OI  .TTaPE  . 

ScUPT |GN  ODCUHUDO I . I f APE  ■ 

»CUP»’iGM  OOS APUDO 1 . , t APE  . 

8 c 0 P T.G'A  OOP  E CUOOI  ■ . t APE  , 

"BtOPT, QM  OOSAVUDO W |TaPE, 


(13)  PFCAA. PROCURE.  - This  runstream  assigns  the  files 
and  executes  the  programs  needed  to  Interface  with  the  MI  RADS 
"HITFILE"  of  query-selected  data  base  records  and  produces  the 
ODSAS  procurement  report  at  the  completion  of  the  LT  segment. 


BFREE  J. 

tHDS.P  OCStS  PPOCuBfNfNf  PUN 

bust  12. .“ascunseb. 

BUFF  II.. MITE  lit. 

BIOT  PF0DSAP.H1TF lLF/tNItBF ACt 

SCOPY  9.  *000010090.  

B AT  G * A oomiuosn. 

BUFF  IS..00001U0BU. 

BASO.A  ODPOPUDOI • 

BUSF  12. .00B3PU001 . 

ACFI E TE  *C  POALtPPNt. 

bacg.up  9'ultprnt."  t alternate  print  ritr 

BUFF  ». .SOALTPPNT. 

B»DT  PFOOSAO. PROCUREMENT 
JAF3.A  PFPRtNT. 

bcopy»i  oooaiuoso. .pfpp int.cbljt 
BSTP.su  OOOT1UOSO...PR 


g.  Status  Messages  to  the  MAIL  File.  - The  last  three  run- 
streams  In  the  processing  phase  send  messages  to  a "MAIL"  file  so 
that  the  user  can  Inquire  Into  the  status  of  the  run  through  use 
of  the  ED  processor  (see  Chapter  VI,  Operations  Guide,  Paragraph  10) 


IX-27 


(1)  PFCAA.MESSAGE -ONE . - Sends  a message  to  run-ID  OD001 
that  the  FMPS-Module  was  entered  in  the  runstream  OD001a,  where  "a" 
Identifies  the  specific  runstream,  (e.g.,  OD00U  identifies  RUN- 
COL  XXJ  , from  which  the  message  was  sent. 

«ep,i  » __ 

lu  ooopi 

r«ps  module  entepeo  ~ 

Mtor 


(2)  PFCAA. MESSAGE-TWO.  - Similar  to  (1)  above,  except 
message  is  sent  at  completion  of  FMPS-MODULE. 


mEPiI  « 

■tt.HL  flPBUI 

F«PS  SESMenT  COMPLETED 

uEor 

o'M  I T 


(3)  PFCAA.MESSAGE . - Similar  to  (1)  above,  except 

message  is  sent  at  completion  of  the  IMPLEMENT  runstream  in  LT 
segment.  Indicating  that  end  of  OOSAS  processing  has  been  reached. 


mi-S.l  * 

M*IL  ODOQI 

lt  segment  completed 
bEor 

QHIT 
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4.  Ancillary  Runstreams 


a.  Analysis  and/or  Correction  of  Results  at  Completion  of  a 
Processing  Pnase.  - The  following  catalogued  runstreams  can  be 
executed  at  the  completion  of  a processing  phase  to  analyze  or 
correct  the  results  of  the  segment  just  completed: 

(1)  P^CAA. UPDATE  - Assigns  all  files  and  executes  the 
program  (PFODSAP. UPDATE)  to  change  requirements  and/or  attrttlon 
and  promotion  rates  or  other  input  parameters,  and  updates  the 
appropriate  files  to  re-run  the  current  segment. 

•Run, /TP  OOOd i u .u®o 11 ,C»» 
fcOtltTC.C  OUJdUaiO, 

«‘SSidP  UiCOlUCTO. 

g»**pT  PH  | T i/OUOCl  UUTtl 

aWQS.P  noi«S  flit  g'PD«TI 

gXTftT*  UL'SA^dui. 

»MGt*  GJPQPwJOI. 

*k(,TPFOUsaP.oPJ»rt 

g«OQ,P  PT J0»«p. UPQtTE/C»HD3 

t<*»«PT  P<|i,t» 
gF«tt  OUUf|UJ*Q. 
glVM.su  0 „ Q l3  I uDTO  . . ,PH 

»Mx  


(2)  PFCAA. MODIFY . - Specifies  all  commands  to  modify  a 

current  FMPS  solution  for  COLs,  LTCs  and  MAJs  and  solve  again  from 
an  intermediate  point  in  the  solution  process.  The  data  elements 
to  be  modified  are  in  the  element  named  "MODIFY/CARDS"  within  the 
file  named  PFCAA  (see  line  42  in  the  runstream  below).  In  order  to 
modify  a CPT  or  LT  segment  FMPS  solution,  the  changes  should  be 
inserted  in  the  element  named  "MODIFY/CARDS-CPT-LT"  (see  Paragraph 
(4)  below),  and  the  PFCAA. MODIFY  runstream  changed  via  the  ED 
processor  (change  ".MODIFY/CARDS"  to  ".MODIFY/CARDS-CPT-LT"). 

■ *UNi/TP>t  oDJ3IP,u*0||2.C«*,SOUi|OOO 

H»sa  , » u.iriC  I JU/IJ , 

.flSKPT  P («  |!,T./GiJGJIUL)«i) 

gHDG.P  Pf C««/  IQJ l>  T Ousts  CPT  TORIES  5-»}S0 

ifcO  • i <;Fr,t«r,.T 

<1 

»ll*t  ~ — 

*»OO.L  PFCH.GC-PO^ULF 

anoo.i  pFc«».tx®Lep'-NT  ' “ 

_aEND  _ 

• Mill  Ooidkw'uBr. 

»»10|I  ODSQL  J 11  • 

«l5G  , L Pt f h~P i , 

» « S 6 . * 0 J ) 6 b J~l  I . 

suit  i J lOdOUSjol « 
joafCjjgi. 
gAsa.l  Ou',  » » jiu  i . 

.Mi,.  ujwtGjum. 

WUSt  I 0 . . OuS'.LU  J I . 

1 1 . , jut  .»uoo  i , 
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PFCAA. MODIFY  Runstream  (continued) 


.USE  l 2 . . UI'S»  ■ UJO  I . 

»>05£  THP5..PTFPPS. 

.USE  5PHLC  *H  . , OUHECUUO  I . 

.delete, c i^-erse. 

UDELETE.C  -ITyu. 

bQELEte.c  utilI. 

.DELETE, C U T I L 2 , 

8*56. T IHM  1 » >(  2/ I Q/P05/  1000 

.FhEL  Ou-U. 

.C.T.P  IHtEPjE.  ,r  l/tHOnHU/lOQ? 

8*56,. 

8*5 6.T  0Uh2. .F2/ I J/POS/ 1UOO 

BFREE  DUX2> 

BC.T.P  m ral  «.  .F2/*«j/TR«/JOQ0 

.*54 ,1  n»r«U. 

.*S6,T  DLm J. .F2/ l C/PdS' tOOO  

emr  OU-i  J. 

BCtT.P  JTILI  ■ |F22<i»0/T»R/JC0t) 

8*56,.  Ut|Ll> 

8*56. T 3qh<. .F 2/ l O/PPS/ | OOP 

.M<Et  OUN. 

bC»t,p  uf  il2.  ,r  i/ h’to/rn*.  / iooo 

8*56 . A U T J L 2 • ~ 

hsi.ip  »u>i  ■ 

8*00,  P prc»»<"C5S>6t-0,li 

fckat  FPPS.L*-<4Ct  »P5»«5 
8*00,  P Pf  c^'FhpS-hCOIFt 

.10b  pFc£».^oj|f  »'/i*hu5 . IT  MOUirTPUi  i '[VI  BB  lT  5l(,HETJf, 

. cx*'<6t  elEheht  4*n  to  nooir r/c*»0»-cp t-oi . 

\ii*bOtP  PF  c»»  • -E  5»«GE -T"U  . tLEHE*  ^ N»«l  ShBuID  at  TS0PTTT7T  > *0  5 1 

.DELETE. C INVEH5E. 

.Df  le'te x»fTTi. 

.DELETE, C.  utiLl, 

.DILI  TE7C,_UTTL71 

.BKR  p f PP|nT« 

.FREE  flOj'i  I'D 

.5th.su  uoi'OluOFU.  , ,p« 

__rr_ 


(3)  PFCAA, MODIFY/CARDS . - Specifies  the  data  elements 

and  values  to  be  modified  and  the  parameter  values  for  the  FMPS 
loadlist  procedure  in  the  COL,  LTC,  and  MAJ  segments.  Below  is  an 
example  of  types  of  data  elements  and  values  that  can  be  modified. 
The  loadlist  parameters  are  required  to  be  in  the  type  and  form 
shown: 

H»"E HQOlf  T 

UP  (ttOUNOS*  XQ002I  108. uJ- 

_ £*DATA 

N*ME  MaSkDATM 



A A • • 

ENQATA 

name  maskOatm 

masks 

N«#*CMEw 

N»»*TR£W 

••••UttSi 

TpTAUTH* 

ENOATA 
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(4)  PFCAA. MODIFY/ CARDS-CPT-LT.  - Specifies  the  data 
elements  and  values  to  be  modified  and  the  parameter  values  for  the 
FMPS  loadllst  procedure  In  the  CPT  and  LT  segments.  Below  Is  an 
example  of  types  of  data  elements  and  values  that  can  be  modified. 
The  loadllst  parameters  are  required  to  be  In  the  type  and  form 
shown: 


N»wt puoipt 


10  .BOUNDS* 

INJ? 

«*«7.0 

UP  mOUNQS* 

»hl  i 

m.c 

LO  •bQoMi* 

lN**i 

M ? I *0 

up  . BOuNIjS  * 

■ N*»2 

1 SOM.U 

LO  •oOuNDS* 

1 MM  J 

S 2 • 0 

UP  .bounds* 

. ‘in 

liS.D 

LO  .BOUNDS* 

INMW 

IS7.0 

UP__i4SjidilA*  . 

tan  _ 

iiiill 

LO  *o0UNDS« 

IN?  i 

l l».U 

UP  .BOUNDS. 

»OJ*U 

£ NO  A T A 

"♦SKPET* 

MASKS 

A A • • 

£ NQ A t A 
NAMt 

t<*5«5 

Sf 

N**«tP£w 



ToTPuTM* 



(5)  PFCAA. FMPS-MODIFY . - Specifies  the  type  and  sequence 

of  FMPS  control  statements  used  to  direct  the  FMPS  programs  to 
modify  an  existing  solution  and  re-solve  from  an  Intermediate  point 
in  the  solution  process. 


c 

0(f(N(  Pitt  ri*Lt 

T 1 tut  »oci*'  OLO  Solution 

c 

L P PPOaiE* 

I 

_SL_ 

C*LL  l < 1 t < IlP.JU»l("«SI 

STf.O*.*  ITr*C.  fJ*  "*«  M 1 1 . 1 -.vtssl  .UP  |L  1 »N0  UtlLj 

c 

5f»-.0*-'J  loLl**NcL  SEfTIlxS  E»LE»r  Mf  fOLL3«TR(. 

c 

• •••••  OlCB»'iCl  *0JuST-[N1s*»»»« 

i 

c 

i*  t t!»wue  A'O  -l-.uA  EPNQK  I^TtSKuPTS 

i 

AS5iG*  ICwH  »o 

Jt 

ASSIGN  1010  tQ  *"!>£* 
ASS  JG*  10/  tr  dluH 

c 

I'.fllLllC  SP“|uf  iNUNUJUtJ  «.(fs,«u»s 

4SSIUN  IOJ0  To  »N*S 

-C, 

*ssl»'-  Ton  tj  «ues 

4SSI1.N  UtStfLT  rlLt  f.u  f'TfCN  TO  T * 1 S «uN 

to 

5 

CELL  »t!»c-lut,i'»-T,iii 

• •fS.Ii.  BCL.rlC.  flu1-  *;»  LiNKfoE  TO  n E E T SEOHEl.Ta* 

C»Ll  *IT«C"|.0.S0lUj|.,lj.f1«r»*..  ,Nt«l 
C»Ll  »»f*C*l,O.U05uDI*,IJifO'*T"«N.Nl«l 

t»U  xlsPONL 
|P’C«*»ISOJ 

*ssif-.  test)  n «»'L44 
• • *•  a o i p * ' 

TiCl  «ou  If  * 

L f LL  S*»I'*T 

I X -31 


1 

L J 

L i 


PFCAA.FMPS-MODIFY  Runstream  (continued) 

c 

C»Ll  C 0 >1 0 I T 1 ON 


— n — 

Call  sjLuTiun 

C 

SAVE  OPTIMAL  SOLUTION 

c 

CALL  SAVE 

CALL  SOlUTionI*0"S,c!STR,COLS,LI5Tc»P ileonlt , 'OOSOLUOl • 

•AchaPTeA, 

c 

£ 

1 1 • 3 , H . A , 7 ,CC"*P I t* , 2 , J , H , 7 | 

CALI  LOADL ! ST i L |5TC  ,L  I5T » 

C 

£ 

•••••*►  OlL  U ■ l N G COMMENT  stmts  non-op  IN  4*lC«**« 
L 0 AO  "aSkS  fO»  «0-S  IN  DATABASE  FIlE 

c 

c 

CaLl  LGA jl I S t 1 L 1 St N .1 1 S t 1 
CALL  CONOlHON 

c 

c 

Call  so loti on \ ro»5,l Is'w,tOLS,t*cEp » .LISTC ,r iLEOKlt , •0u3BSu&l » , 

lRCHAPT£»v2aHl*l7»aaCCHAPTCfilZi'«**i7i.0> 

c 

CALL  SJLUTIOMCOLS,E»CE',r1L!5tC,rlLl.ONLT,'ODOaSLOl*1 

c 

i « c h 4 p rca , j , < . i . ; . rrcTn  <rpm<7  j , . a • ; > ^ ) 

JTup 

c 

c 

rflLLO^TTC  a.', t sT*T$  Fff*  the  Tn“TTh « u p T 5 

c 

JCN/1  1 

lood 

I Call  Cla.au  l t i On 
Call  CSF(»WTNCE  ThF!.*  1 

""Slip  

1 0 1 0 

CALL  SOLUTION 

c 

SAVE  OPTIMAL  SOLUTION 

CALL  SAVE 

CALL  SOLUr|ONlWO«S.UST*,COLS.L  I S T C » F I L E ONL  T , «OOSOLUOl  • i 

.MCMAPTe a , 

c 

1 2 1 j i n i a .t.ccnaptCm TTTTTsTTTi 
• ••••D'jmhht  loaDlist  to  incluoe  all  columns***** 

A 0 A T a • • H a s 1 0 A T M 
CALL  LOAOl  ! ST  1 L I STC  ,L  I *»T  1 

c 

c 

••••••FOLLOWING  Cl^nenT  STMTS  NON -op  IN  4 H 1 C • • • • 

loao  masks  fon  ro»s  in  database  file 

c 

c 

caLl  loaol I sf I L 1 5Tn ,l j 5 T » 
call  condition 

c 

call  S^UTTo^uhO^.LISTH.coIS.LIcEPT  .LI5TC.FILE0WL7,  lOOUiSUDl 

c 

IPCMApTEMti.N.A.T.S.CCMAPTEK.i.N.A.T.AI 

CALL  SOLUT|ON(COLS,l»CLPT , l I 5 T C , F i L t ONL r , • 0008SUO | • , 

c 

lPCHAPTER.2,N.A.Fm,CCMAHTt«.Z,M.4.7.01 

e 

STOP 

••pAOCEUUPtS  TOP  I/O  CpPOASppp 

j flio 
c 

50  TO  1 00 J 

c 

l 0 30 

1 N T EL  SVpTs  f CP  «*'F5,«U0S 

Call  solution 

CALL  OjTPjT ( BYRONS. W0»S »L 1ST | | 
Call  csri'kjfRtE  tpf»»*i 

5 ’OP 

ioas 

CALL  SOLUTION 

CALL  CSF 1 »bFRCE  TPF».  • » 
STuP 

IUNO 

CALL  OUTPUT  1 BTCUU5 • LWL5 »L I 5TU J 
GO  TO  1CMS 

\ 050 
|0*0 

GO  T6  1 L A 0 

CALL  CONDITION 

CALL  TTVt 
CALL  AtSTORC 

c 

no-  save  basis  ami*  evert  icou  iterations 
IF»EOA»IOJO 

C 

ACTjAn 

CNO  of  CONTPOL  p a 0 & a A m 

TOBo 


I X -32 


(6)  PFCAA. RECOVER.  - Specifies  all  commands  to  recover 
an  FMPS  solution  for  COL,  LTC,  or  MAJ  segments  that  terminated  pre- 
maturely because  of  hardware/software  errors,  or  operator  Inter- 
vention. 

* 

»<UN«/fP  ODOQm»OtP»  tliCA*»*COQ»  loop 


• MPL  2 I b« 
y*  3Q.A  OOtiQ  1 UOfO  « 


yASC.A  PFTNPj 


WlL T • | D HUN 
*00, L Prc**«  Jfl«HQQt)Lt 


•L  r F C A * • lHPLt“CNl 

t NO 


• TMr  ► OLL'JbTNG  'll’*  OF  -F  N T IKn|C*ttfl  N'lV 

• to  optginal  spat,  n - sfghfnt  torNriFic*TTnN 

sfghfnt 


tfUSC  1 J • , oOu  iS JU 1 • 
B*SG,A  ODRECuOJl. 


UWSC  SPNtCVN • (OUBECUOO * • 
y*S«,A  UJSAVUJUU 


1 2 • ,OU>A«UJU|  • 
B*SG,A  OuSOLuul. 


COP**'  SPONO 


»ntu 

SC»T,P 

OUH  l • 

1 «vEw*£«»r2/6H0'TWK/J00u 

l.«l"SC.  ■ 

“ 

k * 50  , r 

Oui,»  l n>  1 a/PO$/ 1 J 30 

,r«u 

>u»i. 

WCT.P 

'i*r,l<.,ri/*«o/tn«/joGO 

STssTT 

p»t»  I » • 

B*SG, T 

OU  < J* i r 2/ | O/POS' 1030 

zr*TjT 

yC  AT  ,P 

t>UP  J. 

UT  | L 1 • .P J /**0/ f "*/ 1000 

hlssT T 

u t |L  1 • 

•**6. T 

CUN'**  .Pi/  IO/PO*/  1000 

k>»tt 

)o^H* 

kC»T ,p 

U'ILi..Pi/4"0/t**/3000 

£Tss,» 

UI  Iti. 

k»OD,l 

p*  c»*  • 't  i5«t.t  -O^l 
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PFCAA. RECOVER  Runstream  (continued) 


■UELCTC.C  lb*ENSt. 
•DELETE. C MRTRIr. 
.TFlCTE.C  U+ILI. 
•-DELETE. E u T l L 2 • 


■ El  OuLbRUuOI. 
..FREE  InvcbSE. 


■ F REE  UT  1 L I • 
..FREE  *«  - T « 1 * . 


•.free  UTIl2« 
JlEE  OOSOLUUW 


(7)  PFCAA. RECOVER/CPT-LT.  - Specifies  all  commands  to 
recover  an  FMPS  solution  for  a CPT  or  LT  segment  that  terminated 
prematurely  because  of  hardware/software  errors,  or  operator  Inter- 
vention. 


■HUN . /TPH  Q0001H.Q9UI l2, CEE. 2000. 

■TYPE  2 i b, 

" 'OB  I U09 


■8RRPT  PPlNTf/OOOOlUO* 


IJ'rJ.VB.I  ^ 


U*5G , * PFFHHS. 

1 1 P Huh 

■ »00,L  PF C »» • OB-rqOulE 


ueno 

yis.i  s t (i pf  h t 


. THE  FOLLOWING  c.BlOf *SE*MEbT  INDICATOR  RUST 
. CORRESPOND  TO  ORl»IN*C  4RA0E-SESHEnT  IDENTIf ICTfTOR 


u»ss.»  oodbsudw 

MUSE  U..Q0UBSUD1. 

H>SG,R  ODRECUOOl. 

VR»  iODR- 


Y*SS,1  OUSFTUDUI. 

■USE  12. .00S4VUUUI  ■ 

•»S4,»  ODSOLUO 1 • 

MUSE  IU.  .OOSOLUQI  ■ 

w»DD.L  PFC»* • R£S5»GE-UNe 
■USE  FMPS. .PFEPP 


■DELETE. C INVERSE, 

■DELETE. C P » TR  I » . 

■delete, C OTILI. 

■ delete. C u T 1 L2 . 

■»SG,T  DUmI . .F2/ 10/POS/ 1000 
FREE  DWl. 


■CAT , P IbvERSE. ,F2/*ROFTR«/JoaU 

■»SG.«  INVERSE.  _ 

■»S4,T  0UM2. .F2/10/P0SF1000 

-MFRee.PMWi, 
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PFCAA.RECOVER/CPT-LT  Runstream  (continued) 

•C ttiF  MtrRl*i ,P 2/»»o/t»«/30D0 

|«S6,^  HtTRl»,  

■»SS.T  OUHjuri/'lo/Pol'IOOO 


TTTTToTfoTTTffOo 

bENEE  Ounr  . 

b»»8.«  uriL^» 

“ikiitFH^s.HkurMPSjBs 

B«PO  PEctt.EHps.RtcOvlR 

. colohk  Ind  now  Selection  lilts  pOk 

S»Ht H»5KC»m 

H<S«J 


f.o»r» 

B«"E 


<D* 


B«S«J 


N«»«CREq 

n««RTrEb 

KiM'li. 


enom* 

_! 


f ht«uth» 


bedo.lr  prc»‘.HCjs»«E*+»o 
BPELETE  ,C  |MjR$[. 


bOELETE.C  H»TR|K. 
tiDELETE.C  UTILI. 


bdelete.c  utiu. 

NEREE  bPEatUPQI. 


beree  inverse. 
BEREE  UTIl 1. 


PFCAA.FMPS -RE COVER  Runstream: 


OCFINC  page  title 


TITLE  SP^l^T  RECOUNT 

IP  PHOdLEH  


CALL  ENTtK|LP, JU»LFmP5 I 

STA  iQAWO  ATTACK  fQH  HATH  I X , INVERSE ,UT IL l ANQ  U T l L 2 


STAnOAkU  TOlERanCl  SETT  I N G S EXCEPT  THE  FOLLOWING 
AOjl'STH£NTS****» 


Initialize  «*jo"  ano  minor  error  interru 
ASS  I G*  10UO  To  amAJER 


Call  AT r AcHlNtaTART , 12  | 

••ASSIGN  SOLUTION  file  ►or  LINKAGE  to  NEXT  SLGMEnTa* 


CALL  ATTACH! »ODSUL JO l •»IO,FOrfT*AH,NE"l 
ASSIGN  pATaBASE  INPUT  FIL“ 


CALL  ATTaCm(,OUw»SUUI»,IJ«FORTRaN.nE"I 


IFRE JA.ISOO 
ASSIGN  1050  TO  KFRE2A 


continue  solution  f rjm  sprint  recover*  file i sprecvr i 
call  SPRt*TCNOaASlS*RCCUvCR» 


call  solution 
RTl 


CALL  SAVE 

CALL  SOLUTION! RO^S.L 1ST R ,COLS,L I STc»^ I LC ONL T , • OOSOLUO I #»KCMAPTfR 


•••••JjHMKf  LCAOL 1ST  TO  INCLUOE  *lL  COLUMNS • • • • • 


call  eoaolistili5tc*list ! 


LOAD  MASKS  EON  R 0*  5 IN  DATABASE  FILE 

CALL  LUAOLl ST < L I S TR ,L I ST) 

CALL  CON J I T 1 ON 


|RChapTE-V.2.m,A.7»8,CCmAPTlR,2,*«,A.7.®I 


SAVE  OPTIMAL  SOLUTION 


call  SOLUT  IOMROPS.l  ISTR,COLS,HSTc*E  ILEONLT  , •OOSOLUO  I • * "Chapter 


1 l l J , V • 6 , f , t C -<A^  1 t ■»  I 2 . 

•••••JUMMMf  LOaOlIST  TO  INCLUDE  AlL  COlUHNS#**** 


A I A • •MASKJA'n* 

LOAOlISTIlIStc.USTi 


• • ••••f  OllO*' l 4 » C L f" m E m 
L 0 A 0 h4SKS  f0R  Rj*S  In  DATABASE  FIlC 


CALL  LOAcLIST!L|STR.L|STI 

Call  CONDITION 


wsmmm mm 


f 


PFCAA. FMPS-RECOVER  Runstream  (continued) 


c 

CALL  SOLO  t|  Dili  cOLJ.EAClRr  iLtSfl  ,P  ILI-OMIT  , 'OuORSUOl  • t 

c 

lilCHApTlR|A.Ri4.7lBiCCrtAPTLA»l,H,4»7»BI 

TTO? 

•♦procedure!  row  i/q  Ekrqrs»»« 


TTT3  SO  ro  M Jfl 


c 


1 

1010 

li.THLjMi  ,0p  tNrs.m* 

CALL  SULUTIOR 

call  CMl'Ulfl  TPP4.*I 

if  Oa 

|0R0 

CALL  OuTPuT | RTCOLS, COL* vLIJTUI 

nrn 

CALL  sJLwTIo'* 

CALL  CSM  *«rACC  • » 

|OIO 

Itoi 

CALL  C3N0ITI0N 

C*LL  5*vL 

CALL  «tSTO»t 

t 

Hi 

RE  T JR* 

End  op  control  p*osrar 

HI 

Iffl— 

(9)  PFCAA. IMPLEMENT/TOTAL.  - Assigns  and  creates  all 
files  needed  by  the  MIRAbS  system  to  load  the  cumulative  data  base 
containing  all  grade  segments  processed  thus  far,  and  prepare  the 
data  base  for  on-line  inquiry. 

hHUO.p Mlmus  IHPlEPEMAT  ION  POP  ODSi! 

»AS4 ,A  PF«JR»jS. , BEOlN  |MP(.lH(NT  TOTAL  POOULE 

moelete.c  dUcqpseo. 

rdlletI.c  s»vcuMjt4, 

• OCLLU.C  f»»CU"SLG. 

LDELLU.C  uHLCU“iia, 

LttLITL.C  !>-.>  L ymiAj 

«>at,c  ««  i rads.  *st.r  il5 

. — 

UbcuH“i>U|1  • ALL  CUMULATIVE  OB  RECORDS 

..USE  R . .C„CU  "JUb  I . 

,».T  PFLUSAP.Jb.it'. 

b»m.iu  HEHMtos.aicat; 

„AUD,P  PF  OOS*P  iCl'P-U  I C t 

k«jT_li£'lla*osikiLi.tl! — — 

„««!  Pf  P.  | >,  AU1.  INLutF. 

.».t  PffilRRUa.StV^.K 

»auD,p  PF  c»**!»*u*uUtxV/CUPSE» 


(10)  PFCAA. SAVECOPY/TODISC.  - This  runstream  enables 
restarting  a processing  phase  after  subsequent  processing  phases 
have  been  completed.  The  runstream  copies  a previously  created 
tape  containing  copies  of  eleven  ODSAS  files  to  the  appropriately 
named  disc  files.  Thus,  data  are  restored  to  the  disc  files  In 
their  original  condition. 
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rs^jrai 


PFCAA.SAVECOPY/TODISC  Runstream: 


6 A S&  , 
6*SG  , 
"SaSg. 
6aS&  % 
C A S G , 
® A S 3 * 


6 A S 3 , 
SAS  G ± 
CASG, 
6aSG, 

"57s  g, 

_ 8 1 S , 

e'cop»‘ 

£cOPy 

sropy 

SCOPY 


* — C0?Jr_PjO!_r»0itsij is  Phase  tiles  to  disc 
t t ape •• i 4*( •••*••  . input  Tape 

A OP  I h»JJDOJj , l-P  PARAMETERS 

a oosac'Jooi. 

a oooesup  ij 

a odsoluoV. 

A 0 OS  APUQ | I I 
A O0SAPUO07 • 

A QOS APUQQM. 

A OOCUMUOOI, 

A 00  S A p U p o 3. 

A OOHECUpOI." 

A ODSAYUpOI. 

~i  Tapi 


ReQu  i R’e'heVts 

FH p S_  0 - P T 0_0 B 

TAPs’  O.p  To  LINKAGE 
_C  UH  QB  FILE 


OD 1 NP U 00  I . 
.G  Tapp . .OPSACUOOI » 
g tape • .oobasuo i • 

G T a PE . .OOSOLUOI . 


CURSEG  OB  FILE 

HG  0-P  TO  OB  

PERM  CUM  08  FILE 

temp  CUM  oa  file 

FMPS  R EC  OVERT  FILE 

fmps  save  basis  file 


“COPY  ,G 
#CUp ▼ » G 

.oDSAPuoia. 
T APE  • ,0DbAPU007  . 

ScUPY ,G 

T APE • , OOi APU00A . 

ScOPY i G 

t APE . , OOCUMUOO 1 . 

iCOPY  ,G 

Tape. .odsapuoOJ. 

GC°p» ,G 

tape  JJOORECUOOI. 

Scop*  ,g 

Tape • , ODSAVUOO  1 ■ 

b.  Saving  the  MIRADS  Data  Bases.  - The  following  two  run- 
streams  support  the  MIRADS  data  bases,  and  provide  the  user  with 
control  over  saving  the  data  bases: 

(1)  PFCAA. ROLLOUT.  - Copies  the  current  segment  (CURSEG) 
data  base  files  and  the  cumulative  (CUMSEG)  data  base  file  onto  a 
tape  file  in  order  to  save  the  data  bases. 


mASG.T  UFSTAP.,|A-,.04*,1 
»«GT  PFmibaDS.POLlOUT 
CVIMSEU 


pi  I A A 0 S TAPE  » ILl 


a«ut  pfmimaOs. rollout 
CUPSLG 


MEND 


(2)  PFCAA. ROLLIN.  - Copies  the  files  from  the  tape 
created  in  PFCAA. ROLLOUT,  back  to  disc  files  so  that  the  current 
segment  (CURSEG)  data  base  and  the  cumulative  (CUMSEG)  data  base 
can  be  accessed  via  MIRADS. 


c.  Standard  Query  Sets.  - The  following  two  elements  contain 
the  standard  query  sets  ^nput  to  the  runstream  PFCAA. IMPLEMENT.  As 
additional  standard  query  sets  are  Identified,  they  may  be  appended 
to  the  end  of  the  element  via  the  ED  processor  with  a first  card 
Image  of  the  following  form: 


SAV.  "query  set  name" 


The  last  card  Image  In  the  element  must  be  PEND. 

(1)  PFCAA .STD-QUERY/CURSEG.  - Contains  all  the  standard 
MIRADS  query  sets  used  for  the  current  segment  (CURSEG)  data  base. 
These  queries  are  loaded  to  the  SAVCURSEG  file  by  the  MIRADS  pro- 
gram, SAVGEN,  In  the  PFCAA. IMPLEMENT  runstream. 

JAk.noDECAP 

9.tO  • K tub  P«tf|A  • AND  II.AN  (Jt  0 ANo  Mom  6+  0 

ANQ  tCMVlM  t.  aUPMNIT 

FlTEANiFNQNtACTIVlTT  .U^LMIT 

S**ANOti.»PtU 

a,  10  » H tM>  »MEF|»  . N ANU  rtAP  £)  0 ANQ  P W OH  9T  0 

An 0 ACTIVITY  *IE  •uPl-INIT 

C I tl L . 3 . »F I L L « » * C r 1 » 1 T Y / U^UINIT 

I • YEAH  ,f  NgH 

PlTt>H,fKGH,»CTI»|TT.U^L|NlT,  IFTLL* 

• CPtOtS  I <* 

9»I0  « n anO  pntf|«  » » and  team  at  o and  activist  at  p 

i iYEap iFhph i t 0 

PlTtA»lFHQH,t:, ACTIVITY 

»* V t SPEC-PA i Ni 

• •CIO  • C A N J CPNEFIA  • N ANO  CAcTIvlTV  (,  T 0 

• C r^LL  . 3 . 1-  A T I J A ,.'9  AT  |P~ "/  IV^TTIB  ♦ WW  < T 1 VJI 

> CFPQH.CTO 

^,CFAbH>CTOiEACf|FlfTi|HATlo 
S**«NOOEacT I V I TT 

ii.ie,tAs  • d ai.j  cTo  : n *ng  cij t i v i t t gt-b  amj  ernoH  at  0 

AnU  ICPHtP|<  • , Qrt  Ml  ON  ICYEAP  ■ I ANO  CFPOH  ■ l|  AND 

t A C t I » I T T c.  f J i 

llCTEAA 

C iCYEAP , i3o' *1  • SUN  C*tt|Vlt» 

PlCPNEF I A .cTEaN ,CFPON|t30  C AC T | V 1 1 T , »ToT At  SP  I 

4lv«N00tACF-3 

9 i I C T E A A • 0 A‘I0  c 3 0 ■ II  AND  C A C T | V I T Y i,  T 0 AND  CFNON  5 1 g 

ii.s  upmeiu  • a i i pw  mm  . Q »M)  eTibm  . n mu 

CACtIvltr  GT  g A N 0 ICPWEFtA  » I OP  T | I 

SiCPPEFK 

t •Cpbff  T»  • « rnt  al  i Fti«  rActtvtTr 

' ►•e^REriA.cVElUiJ^NOM.CTo  CACTI,  |Fr, ItOTAfSC  I 

at  nd 
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r 


r 


(2)  PFCAA. STD-QUERY/CUMSEG.  - Contains  all  the  standard 
MIRADS  query  sets  used  for  the  cumulative  data  base  (CUMSEG)  These 
queries  are  loaded  to  the  SAVCUMSEG  file  by  the  MIRADS  program, 
SAVGEN,  in  the  PFCAA. IMPLEMENT  and  the  PFCAA. IMPLEMENT/TOTAL  run- 
streams  . 

S»V .NPPECAP 

O, 10  • R & h,  0 PREFIX  • N ANO  TEAR  it  0 f KOM  4T  0 

and  4hapE  ST  o mo  ACTIVITY  £a  auPlihiT 

C.ALl.ABRD  * GRADE  / |0 

C.AU..«|N.sPEC)Acrr  » f ROW 

s . year  ,sr  adE  i d i*  «o" 

P. TEAa.»anDiHM-SPfcClAlTT,ACTl«ITT.uH.|HlT 

s*v.notcahtu 

a, ID  . r inD  prefix  « *■  AND  'Ear  E3  0 and  GRAPE  at  0 

and  froh  sr  a and  a a t i w j r t ne  aupljhiy 

C.AIL.HR-SPECIAUT'’  .»  PROW 

C.ACE.*4Rd  • GRADE  / lO 

C.«tL.A«»FlU.»  » ACTlVlT*  ! pPLIHU 

S > Ft  AH , SHADE iD |FR0« 

P.FEAH.»ftHD,i|A-5PCC(« Err.  «mm.a»>U»lT,»F)U» 

S A V . c uMNODE  AC  Y 

Bi  I CTEAH  , 0 AND  cto  • II  -ND  CaCMvITT  fiT  0 AND  CfROH  GT  P 

AND  ICP»EF;«  • II)  6»'iCTEAR  . ) AND  cEPOP  • l l and 

cact i » it r at  a ; 

C.ALu.tBRO  • CSNADt  / lo 

ccteaRiRtoTae  « sop  c*ctiv|tt 

s i C Y£  AH , Csr AUE 

H,ERHEF|>.EYEAR.»aBD.CFRON.CTUiEACT|VHY.«TQTAL  5P  I 

S»V .CUH-Sh-P* I R 5 

g , I C ID  » c AND  CPREFIX  ■ H AnO  CGRAOC  GT  0 AND  CACMUTr  Sr  0) 

c !*ll ■ *h*o  • cghade  / To 

c.all.3.«kaT|o  h '.ha  TJ  0 / I NH»T  I Q . phatloi 

S.CGRaOE.O.CFROh.cFO 

p. CfROH, CtO.«GRO,c»CT|V1Ty,»R»T|o 

S*» .CUHNOOE*£td 

A i I C YE  AH  . 0 AND  C’O  ■ II  AND  (ACTIVITY  Gt  0 AND  CFROH  BY  0 

ANO  ICphEFU  .'HirBN'  I C Y E * P • 0 AND  T^"On  • II  AND 

CACYIvlTY  41  0 ANO  (CPREFU  ■ ill  

C .CPREf  U , rY'OYAL  Y SuH  cacTTvTTy 

CyALL.AbRq  « CGRApE  / ID 

5 iCOREF 1 * .C4RA0E 

P j ADR 0 , CPREF I » ,C1 E AR, CfROH. CTO  CA CT | V I T Y ,«T0 TA  C SP  I 

SAV . COPSRdSOH 

g ■ 10  » R AND  PREF |»  . N AnD  ACTIVITY  ET  AUPglHIT 

C.»LL.»4Nu-SU8  • uPU"1t'-  ACTIVITY 

S ■ >E  AR  . 4RaDE  .0  ■ FROM  

P. yean, FRo« , A4RD-SUB 

S«V.CU"ASS|4N-2 

wiClD  ■ C ANO  CP»eF|*  • I AND  C Y E A R ■ 0 AND  CFHD"  IT  0 

AND  CTO  » II  And  CAETIvITY  4T  D 

S»CGRADE,&»CFROM 

P.CGRAOt.(.fH0H. CTO. CACTIVITT 

5 AV .CO"»SS I 4NQ-A 

UlCiD  C ANO  CPREFIX  * N AND  CTCAB  ■ 0 ANO  CFRO"  GT  0 

ANO  CTO  • 11  And  oX?  | V l T Y 4 T 0 

S » CGH  AOt  ■ Cf  PON 

CiALL.»P*Y-4RADE  ■ caH*OE  / 10 

p iIPaY*4RaQE  iCFNQi,  iCTOyCACT  IV  I Ty 

b.icio  ; c and  cprcfix  : w ano  icgmde  cr  so  and  gt  joi  and 

CACTIVITT  3T  01  00  ICID  : C AND  CY-RtFIX  - V AND  CFROH  NE  . 

“ Sere  AND  CGRADE  LT  HO  AND  CT  III  AND  CACTTVTTY  GT  D)  OR 
(TO  r R ANO  PREFIX  T N AND  YEAR  r 1 ANO  ORADF  ET  30)  OR 
(10  R R AND  PREFIX  - V ANO  ACTTVITT  GT  0 ANO  GRADE  GT  201 

P.  CFROH.  CTO. CACTIVITT . . : 

f END 
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d.  MI  RADS  Data  Dictionaries.  - The  following  two  runstreams 
provide  the  user  access  to  the  MI  RADS  data  dictionaries. 

(1)  PFODSAP.CUR-DICT . - This  element  contains  the  MIRADS 

dictionary  cards  (see  Chapter  4,  MIRADS  Tfi,p lementation  Manual,  for 
detailed  description  of  card  formats)  that  define  the  size  and 
characteristics  of  the  row  and  column  data  In  the  current  segment 
data  base.  This  element  Is  PADD'd  for  the  PFMIRADS.DICGEN  program 
In  the  PFCAA. IMPLEMENT  catalogued  runstream. 
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PFODSAP.CUM-DICT.  - This  element  contains  the  MIRADS 
dictionary  cards  (see  Chapter  4,  MIRADS  Implementation  Manual,  for 
detailed  description  of  card  formats)  that  define  the  size  and 
characteristics  of  the  row  and  column  data  in  the  cumulative  seg- 
ment data  base.  This  element  is  @ADD'd  for  the  PFMIRADS.DICGEN 
program  In  the  PFCAA. IMPLEMENT  and  PFCAA. IMPLEMENT/TOTAL  catalogued 
runstreams . 
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PFODSAP. CUM-DICT  Runstream: 
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e.  MAP  Processor  Directives.  - The  following  runstreams  con- 
tain the  MAP  processor  directives  needed  to  MAP  the  FORTRAN  programs 
used  in  ODSAS. 

(1)  PFODSAP .MAP/SACS . - To  re-MAP  the  two  programs 

(SACSPREPRO  and  SACSCREATE)  used  to  determine  the  specialty  require- 
ments from  the  PERSACS  tape(s). 
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(2)  PFODSAP .MAP/ INITIAL . - To  re-MAP  the  program  used  to 

perform  the  attrition  and  promotion  rates  computations  and  create 
the  master  input  parameters  file  (ODINPUD02) . 
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END 
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(3)  PFODSAP . MAP/TQURATI OS . - To  re -MAP  the  program  used 
to  compute  the  utilization  ratios  and  tour  lengths  that  make  up  the 
specialty  preferences  file  (ODTURUD01). 
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(4)  PFODSAP . MAP/MATRI X . - To  re-MAP  the  matrix  generator 
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(5)  PFODSAP. MAP/DAT ABASE.  - To  re-MAP  the  programs  used 
to  create  the  data  base  input  files  to  MI  RADS. 
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(6)  PFODSAP. MAP/LINKAGE.  - To  re-MAP  the  program  used  to 
link  one  system  segment  to  another. 
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(7)  PFODSAP .MAP/SEPARATE.  - To  re-MAP  the  program  used 
to  separate  the  inactive  from  the  active  records  in  the  cumulative 
data  base. 
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(8)  PFODSAP. MAP/DBLOAD.  - To  re-MAP  the  program  used  to 
load  the  MIRADS  data  base  file,  MASfn  (where  fn  is  either  CUMSEG 
or  CURSEG) . 


“mr  ittifodsift 

FFM|N*OS. 
SFTtF  ,'«.b»SEN 

I N I.OtCHCttl 


(9)  PFODSAP. MAP/PROCUREMENT.  - To  re-MAP  the  two  programs 
used  to  Interface  with  the  MI  RADS  "HITFILE"  of  query-selected  data 
base  records  and  produce  the  ODSAS  procurement  report. 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 

CHAPTER  X 

DICTIONARY  OF  PRINCIPAL  VARIABLES 


1.  Purpose.  - The  purpose  of  this  chapter  Is  to  define  the  prin- 
cipal variables  used  In  all  the  programs  In  the  Initialization 
Phase  of  ODSAS,  and  In  the  matrix  generator,  data  base  creation 
and  linkage  major  activities  In  the  Processing  Phase.* 


2.  Data  Dictionary  for  the 

Initialization  Phase.  - The  name. 

dlmensT 
are  as 

ons  (where  appllcabli 
follows : 

a),  and  definition  of  each  variable 

Name 

Dimension 

Definition 

AES 

(50) 

Advanced  entry  specialty  array 

ATRCPT 

(15) 

Attrition  for  CPTs  by  (YOS)  for 
promotees  In  LT  segment 

ATRMAJ 

(32) 

Attrition  for  MAJs  by  (YOS)  for 
promotees  In  CPT  segment 

ATRTOT 

Sum  of  attrition  for  1st  and  2d  LTs 

ATTHI 

(6,9) 

Weighted  average  attrition  rates  for 
promotees  (grade,  year).  Row  1 not  used 

ATTLO 

(6,9) 

Weighted  average  attrition  rates  for 
those  remaining  in  grade  (grade,  year). 
Row  1 not  used 

AUTHMX 

(6) 

Number  of  officers  authorized  by  (grade) 

BGNYOS 

Beginning  year  of  service,  used  to  define 
earliest  year  group  to  be  represented 

CPT 

(15) 

CPT  population  by  (YOS)  In  LT  segment 

*The  source  language  programs  used  In  the  FMPS  and  on-line 
Inquiry  major  activities  are  proprietary  software,  and  as  such 
are  not  available  to  the  user  (thus,  variables  cannot  be  defined). 


X-l 


Name 


Dimension 


Definition 


CPTATN 

CPTATR 

CPTPOP 

CPTREM 

CPTRM 

DBLZRO 

ENDYOS 

FIVEA 

FOURBK 

GRADE 

IAUTH 

IALT 

IALT1 

ICHG 


Total  attrition  for  CPTs  with  over  eight 
YOS  (without  promotions) 

Total  attrition  for  CPTs  with  over  eight 
YOS  (with  promotions) 

Total  population  of  CPTs  with  over  eight 
YOS 

(15)  Population  of  CPTs  remaining  after 

attrition,  by  (YOS) 

When  used  in  CPT  segment:  CPTs  remaining 

rate,  for  CPTs  with  less  than  eight  YOS. 
When  used  in  LT  segment:  LTs  remaining 

that  have  not  been  promoted  to  CPT 

Counter  for  the  number  of  unknown 
specialties 

Ending  YOS,  used  to  define  oldest  year 
group  to  be  represented 

Counter  for  the  number  of  specialties 
with  five  as  the  first  digit,  and  the 
second  digit  either  an  "A"  or  unknown 

Counter  for  the  number  of  specialties 
with  four  as  the  first  digit  and  the 
second  digit  unknown 

Index  for  population  and  rate  arrays 

Number  of  positions  authorized  from 
SACS  data 

Alternate  specialty 

Index  for  correct  alternate  specialty 
number 

Used  in  CPT  and  LT  system  segments  only. 
Used  for  captain 's-year  when  last  year 
group  reaches  8th  YOS;  used  for 
lieutenant's-year  when  first  year  group 
reaches  8th  YOS 
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Name 

Dimension 

Definition 

ICNT 

Indicates  when  there  Is  a need  to  add 
population  of  last  year  group  to  previous 
year  group,  so  that  last  year  group  repre 
sents  ENDYOS  and  over 

IEDATE 

Effective  date  of  authorized  position, 
from  SACS  data  (YYMMDD) 

IGR 

Index  for  next  higher  grade 

INDEX 

Pointer  for  YOS  position  In  rate  arrays 

IPNTR 

Index  for  valid  specialty  number 

I PR 

Primary  specialty 

IPR1 

Pointer  for  correct  primary  specialty 
number 

IRATE 

(7,31) 

Equivalent  to  RATE(7,31)  for  output  of 
integer  values  stored  in  matrix 

I RAY 

(1(9) 

Array  for  temporary  storage  of  a SACS 
data  record 

IREC 

Random  access  file  record  key 

ISPEC 

Actual  OPMS  specialty  number 

TSUM 

Sum  of  logistics  specialty  requirements 

ITDATE 

Termination  date  of  authorized  position, 
from  SACS  data  (YYMMDD) 

ITIME 

(10) 

10  one-year  time  Intervals,  starting 
at  Tp 

ITREQ 

(11,6,100) 

Total  requirements  by  year,  grade, 
specialty 

IUTIL 

(6) 

Integer  value  for  decimal  utilization 
ratios  (grade).  Not  applicable  for 
Grades  3,  2,  and  1. 

IUTLR8 

(ID 

Integer  utilization  ratios  used  to 
convert  decimal  values  Input 

X-3 


Name 

Dimension 

Definition 

IVAL 

Invalid  specialty  indicator 

JCNT 

Used  for  adjusting  MAJs  ENDYOS  popula- 
tion (similar  to  ICNT) 

LTR8W 

(2,30) 

Attrition  rate,  with  promotion  to  next 
higher  grade  included,  by  (grade,  YOS). 
Array  is  for  LTs  (Grades  0-1,  0-2)  only. 

LTR8W0 

(2,30) 

Attrition  rate,  without  promotion  to  next 
higher  grade  Included,  by  (grade,  YOS). 
Array  is  for  LTs  (Grades  0-1,  0-2)  only. 

MODE 

Identifier  of  data  type:  "TEST"  for 

test  data  or  "PROD"  for  production  data; 
also  identifier  of  whether  to  create  or 
update  TOURATIOS  file 

MR AT  10 

Part  of  utilization  ratio  that  pertains 
to  primary  specialty 

NAME1 

First  four  characters  of  FMPS  problem 
name 

NAME2 

Last  four  characters  of  FMPS  problem 
name 

NBRAES 

Number  of  advanced  entry  specialties 

NBRPRO 

Number  of  prohibited  alternate  special- 
ties (in  TOURATIOS  program  only) 

NCARD 

Number  of  cards  read-in 

NPRO 

Number  of  specialties  in  Segment  1 

NPROB 

•(10) 

Prohibited  alternate  specialty  numbers 
(maximum  number  of  10) 

NPREF 

Number  of  preferences 

NRATIO 

Part  of  utilization  ratio  that  pertains 
to  alternate  specialty 

NSPEC 

Number  of  specialties 

X-4 


Name 


Dimension 


Definition 


A 


NYRS 

Number  of  years  to  be  projected 

ONEBLK 

Counter  for  the  number  of  specialties 
with  one  as  the  first  digit  and  the 
second  digit  unknown 

PMTCPT 

(15) 

New  promotees  to  CPT  (YOS)  In  the  LT 
segment 

PMT1LT 

(15) 

New  promotees  to  1LT  (YOS)  In  the  LT 
segment 

POP 

(6,32) 

Population  array  by  (grade,  YOS) 

POPMAJ 

Total  new  promotees  to  MAJ 

POP SUM 

Total  population  of  LTCs  or  MAJs 

POPULA 

(1.4) 

Accumulators  used  for  population  and 
attrition  In  Grades  6 through  4 

(1.1)  total  population 

(1.2)  total  attrition 


1.3)  total  promoted 

1.4)  total  population  less  promotions 


P0P1LT 

Total  population  of  lLTs 

P0P2LT 

Total  population  of  2LTs 

PRMT 

(6,9) 

Weighted  average  promotion  rate  (grade, 
year);  Row  1 not  used 

PRODIF 

Total  promotees  to  MAJ  In  the  CPT  (with 
less  than  eight  YOS)  segment 

PROMAJ 

(32) 

New  promotees  to  MAJ  in  CPT  segment, 
by  (YOS) 

PSUBTL 

Population  of  CPTs  with  eight  YOS  or 

less  at  T- 
V 

Name 


RATE 


REMMAJ 

RESUM 

RSUBTL 

R8W0PR 

R8WPR 

SARRAY 

SEGCOL 

SEGLTC 

SEGMAJ 

SIXA 


Dimension 

(7,31) 


(32) 


(6,32) 

(6,32) 

(3,50) 


Definition 


Array  containing  rate  data  per  year  (for 
nine  years)  for  all  grades,  and  certain 
additional  data  for  CPTs  and  LTs  only. 

Row  1 - for  CPTs  only:  20  AES  numbers, 

nine  CPTRM  rates,  and  ICHG 
Row  2 - for  Grade  2:  nine  rates  each 

for  ATTHI,  ATTLO,  and  PRMT ; 
one  rate  each  for  OFLOHI, 

UFLOHI , 0FL0L0,  and  UFLOLO 
Row  3 - for  Grade  3:  same  as  Row  2 

Row  4 - for  Grade  4:  same  as  Row  2 

Row  5 - for  Grade  5:  same  as  Row  2 

Row  6 - for  Grade  6:  same  as  Row  2 

Row  7 - for  LTs  only:  same  as  Row  1 

MAJs  remaining  by  (YOS)  after  attrition 

Population  of  LTCs  or  MAJs  remaining, 
after  attrition 

Attrition  of  CPTs  with  eight  YOS  or  less 

Attrition  rate,  without  promotion  to 
next  higher  grade  included  (grade,  YOS) 

Attrition  rate,  with  promotion  to  next 
higher  grade  included  (grade,  YOS) 

Percent  of  each  alternate  specialty's 
requirements  that  can  be  filled  in 
Segment  1 (grade,  specialty  number) 

Segmentation  parameter  for  COL  segment 
processing  (0-unsegmented,  1-segmenta- 
tion within  grade) 

Segmentation  parameter  for  LTC  segment 
processing  (0-unsegmented,  1-segmenta- 
tion within  grade) 

Segmentation  parameter  for  MAJ  segment 
processing  (0-unsegmented,  1-segmenta- 
tion within  grade) 

Counter  for  the  number  of  specialties 
with  six  as  the  first  digit  and  the 
second  digit  an  "A" 


X-6 


Dimension 


Definition 


Name 

SIXBLK 

SPECLT 

SUM 

TATR1 

TATR2 

TATR3 

TATR4 

THRAB 

THRCD 

THREF 

THRGH 

THRLP 

THRQ 

THRS 


(5D) 


Counter  for  the  number  of  specialties 
with  six  as  the  first  digit  and  the 
second  digit  unknown 

Segment  1 specialties 

Total  promotions  of  LTCs  or  MAJs 

Total  attrition  of  2LTs 

Total  attrition  of  lLTs 

Total  attrition  of  CPTs 

Total  attrition  of  MAJs 

Counter  for  the  number  of ’special ties 
with  three  as  the  first  digit  and  the 
second  digit  an  "A"  or  "B" 

Counter  for  the  number  of  specialties 
with  three  as  the  first  digit  and  the 
second  digit  a "C"  or  "D" 

Counter  for  the  number  of  specialties 
with  three  as  the  first  digit  and  the 
second  digit  an  "E"  or  "F" 

Counter  for  the  number  of  specialties 
with  three  as  the  first  digit  and  the 
second  digit  a "G"  or  "H" 

Counter  for  the  number  of  specialties 
with  three  as  the  first  digit  and  the 
second  digit  an  "L"  or  "P" 

Counter  for  the  number  of  specialties 
with  three  as  the  first  digit  and  the 
second  digit  a "Q" 

Counter  for  the  number  of  specialties 
with  three  as  the  first  digit  and  the 
second  digit  an  "S" 
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Name 

Dimension 

Defi ni tion 

THRUV 

Counter  for  the  number  of  specialties 
with  three  as  the  first  digit  and  the 
second  digit  a "U"  or  "V" 

THRW 

Counter  for  the  number  of  specialties 
with  three  as  the  first  digit  and  the 
second  digit  a "W" 

TOTAL 

Total  population  of  CPTs  with  less  than 
eight  YOS 

TOTATR 

Total  attrition  for  promotees 

TOTPOP 

Total  population  of  CPTs 

TOTPRO 

Total  new  promotees  to  MAJ 

TOTREM 

Total  remaining  MAJs 

TOUR 

(6) 

Integer  value  (i.e.,  tour  length  x 10) 
for  primary  specialty  (grade);  not 
applicable  for  Grades  3,  2 and  1 

TPROM 

Total  new  promotees  to  MAJ  (from  CPTs 
with  eight  or  more  YOS  only) 

TPRMT2 

Total  promotees  to  1LT 

TPRMT3 

Total  promotees  to  CPT 

UPBND 

(3,50) 

Maximum  number  that  can  enter  the  net- 
work within  each  designated  primary 
specialty 

URATIO 

(50.50,6) 

Utilization  ratios  and  tour  lengths  by 
specialty  and  grade 

(50.50.1)  utilization  ratios  for 
Grade  6 

(50.50.2)  utilization  ratios  for 
Grade  5 

(50.50.3)  utilization  ratios  for 
Grade  4 

(50.50.4)  tour  lengths  for  Grade  6 

(50.50.5)  tour  lengths  for  Grade  5 

(50.50.6)  tour  lengths  for  Grade  4 
Grades  3,  2,  and  1 are  not  input 
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Name 

Dimension 

Deflnl tlon 

UTIL 

(6) 

Decimal  value  for  utilization  ratios 
(grade).  Not  applicable  for  Grades 
3,  2,  and  1. 

UTLR8 

(12) 

Decimal  values  which  are  limits  used  to 
convert  decimal  utilization  ratios  to 
Integer  ratios 

VAL 

(32) 

Attrition,  including  promotion,  of  CPTs 
(YOS) 

VALUE 

Total  attrition  In  Grades  6 through  4 

VAL1 

(32) 

Attrition,  excluding  promotion,  of  CPTs 
(YOS) 

VAL1LT 

Attrition  of  lLTs 

VAL2LT 

Attrition  of  2LTs 

W0RK1 

(32) 

Used  for  storage  of  current  grade 
population  (YOS) 

W0RK2 

(32) 

Used  for  storage  of  promotions  (YOS) 

WORK3 

(32) 

Used  for  storage  of  population  less 
promotions  (YOS) 

X-9 


3.  Data  Dictionary  for  the  Processing  Phase.  - The  variables' 
definitions  for  this  phase  are  listed  in  two  sections  (and 
alphabetically  within  sections). 

a.  Common  Variables  section.  - Contains  the  variables  which 
are  common  to  the  matrix  generator  and  linkage  major  activities 
(major  activities  1 and  5,  respectively ) of  the  Processing  Phase. 


b.  Variables  Used  in  Data  Base  Creation  Activity 
definitions  of  variables  as  described  by  the  title. 


Contains 


Common  Variables 


Dimension 


Def  i ni ti on 


ACT  IVY 
ATT  HI 


ATTLO 


CPTREM 


CRQACT 


Array  of  advanced  entry  specialty  numbers 

Number  filling  requirements 

Attrition  rates,  per  year,  for  promotees 

Attrition  rates,  per  year,  for  officers 
remaining  in  grade 

Percentage  of  CPTs  with  less  than  eight 
YOS,  remaining  in  the  total  CPT  popula- 
tion, by  year 

FMPS  solution  value  for  activity  of 
N CREQ  constraint 

Indicator  for  "CREQ"  or  "TREQ"  record 

First  word  in  solution  record  that  has 
useful  data 


Index  used  in  CPT  and  LT  segments: 

CPT  segment  - indicates  the  year 
when  last  group  attains  8 YOS 
LT  segment  - indicates  the  year 
when  the  first  year  group  attains 
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Name 

Dimension 

Deflnl tlon 

ICOUNT 

Counter  for  number  of  double  precision 
records  read  In 

ICT 

Identifier  of  current  record  type 

IFOR2 

Indicator  for  a Type  2 record;  last  12 
words  of  this  record  must  be  saved  for 
Type  3 record  processing 

IF0R3 

Indicator  for  a Type  3 record;  last  6 
words  of  this  record  must  be  saved  for 
Type  4 record  processing 

IFOR4 

Indicator  for  a Type  4 record;  no  words 
are  saved 

HAST 

Number  of  rows  or  column  data  sets  In 
last  row  or  column  solution  file  record 

INDEX 

Index  for  grade;  equals  JGRADE  in  COL 
segment,  otherwise  JGRADE+1 

IPNTR 

Index  for  ATTLO  rate  (attrition  rates 
for  those  remaining  in  grade) 

IRATE 

(7,31) 

Equivalent  to  RATE(7,31)  for  output  of 
Integer  values  stored  in  RATE  array 

I ROW 

First  half  of  row  or  column  name  from 
solution  file 

IROWX 

Second  half  of  row  or  column  name  from 
solution  file 

ISAVE 

(18) 

"Save"  area  for  record  Types  1,  2,  and  3 
(number  of  single  precision  words) 

ISEG 

Segmentation  option  (0-no  segmentation, 
1-Segment  1,  2-Segment  2) 

ISFL 

(126) 

Equivalent  to  double  precision  solution 
file  record  (SOLFX)  for  output  of 
Integer  values 

ITEMP 

(126) 

A temporary  storage  area  for  constructing 
complete  records  for  output 
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Name 


Dimension 


Defi ni ti on 


I TOTAL 

Sum  of  requirements  for  a specialty  for 
all  years.  If  equal  to  0,  then  specialty 
number  is  considered  to  be  invalid 

ITREQ 

(11,6,100) 

Requirements  array  (year,  grade, 
specialty) 

IVALUE 

Word  containing  XQT  options  (if  other 
than  blank,  audit  trail  output  is 
generated) 

JGRADE 

Current  grade  being  processed 

K1 

Index  used  to  get  row/column  name  from 
solution  file 

K2 

Used  to  compute  the  index  for  activity 
value,  (equals  Kl+3) 

LAST 

Number  of  rows,  or  column  data  sets  in 
a solution  file  record 

LYR 

Year  part  (two  digits)  of  the  constraint 
name  N_  TREQ 

MAXSPC 

Maximum  number  of  specialties 

MAXYRS 

Maximum  number  of  years 

MODE 

Identifier  of  data  - "TEST"  for  test 
data  or  "PROD"  for  production  data 

MRATIO 

Part  of  utilization  ratio  that  pertains 
to  primary  specialty 

NAME 

(6) 

Array  of  constraint  names 
NAME ( 1 ) = CREQ 
NAME ( 2)  = TREQ 
NAME (3)  = GOZO 
NAME(4)  = LINC 
NAME ( 5 ) = CINC 
NAME(6)  = UBSG 

NBRAES 

Number  of  advanced  entry  specialties 

NBRPRO 

Number  of  specialties  selected  for 

Segment  1 
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Name 

Dimension 

Definition 

NBRSPC 

(50) 

OPMS  specialty  numbers 

NPROB 

(50) 

Selected  specialties  for  Segment  1 

NRATIO 

Part  of  utilization  ratio  that  pertains 
to  alternate  specialty 

NSPEC 

Number  of  specialties 

NSPECL 

Actual  specialty  number  used  for 
modifying  the  correct  ITREQ  value 

NUMBER 

Argument  in  calling  KTREQ  subroutine 

1 = print  ITREQ  array  before 

modifying  requirements 

2 = print  ITREQ  array  after 

modifying  requirements 

NYRS 

Number  of  years  projected 

OFLOH I 

Overflow  percentage  - modifies  require- 
ments data  by  allowing  more  than  normal 
requirements  for  higher  grade 

OFLOLO 

Overflow  percentage  - modifies  require- 
ments data  by  allowing  more  than  actual 
requirements  for  JGRADE 

PRMT 

(9) 

Promotion  rate  data  per  (year) 

RATE 

(7,31) 

(See  Paragraph  2,  Data  Dictionary  for 
Initialization  Phase,  above) 

REqONE 

Unfilled  requirements  for  higher  grade 

REQTOT 

Unfilled  reguirements  for  higher  grade 
and  JGRADE  (overflow  extracted) 

REQTWO 

Unfilled  requirements  for  JGRADE 

REQl 

(500) 

Unfilled  requirements  for  higher  grade, 
used  in  right  hand  side  coefficient 
calculation  for  CREQ  constraints 

REQ2 

(500) 

Unfilled  requirements  for  current  grade 
(JGRADE),  plus  unfilled  requirement  for 
higher  grade  (REQl),  used  In  the  right 
hand  side  coefficient  calculation  for 

TREQ  constraints  and  bounds  on  XN arcs 
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k 


Name 


Dimension 
RESFLO  (2084) 


ROWCNT 


Defini tion 


Code  for  flow  control  constraint  upon 
Y arc.  Each  word  contains  12  three-bit 
codes  meaning: 

0 - Initial  status 

1 - Flow  from  primary  specialty 

2 - Flow  from  alternate  specialty 

3 - Flow  from  both  specialties 

4 - Used  only  in  the  LT  segment. 

Indicates  that  designation  of 
alternate  specialty  to  CPTs  with 
eight  YOS  occurs  at  point  where 
CPTs  with  more  than  eight  YOS 
would  also  be  present. 

Keeps  track  of  number  of  rows  in  problem 


RTYPE 

(2084) 

Code  for  flow  control  constraint  upon 
X arc.  Each  word  contains  12  three-bit 
codes  meaning: 

0 - Initial  status 

1 - Equality  constraint 

2 - Redundant  constraint 

3 - "Upper  Bounded"  code 

SARRAY 

(50) 

Percentage  of  requirements  that  can  be 
filled  with  selected  specialties  during 
Segment  1 

SOLFIL 

(60) 

Solution  file  record  of  60  double  pre- 
cision words 

SOLFX 

(63) 

Equivalent  to  SOLFIL  but  used  for  output 
of  reconstructed  record 

SPECLT 

(50) 

Primary  specialties  specified  for 
Segment  1 

SURVHI 

(9) 

Survival  rate  data  per  year  for  promotees 
(1  minus  ATTHI) 

SURVLO 

(9) 

Survival  rate  data  per  year  for  those 
remaining  in  grade  (1  minus  ATTLO) 

TOUR 

(50) 

Tour  lengths  for  specialties  in  JGRADE 
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Name 


Dimension 


Definition 


UFLOHI 

Underflow  percentage  to  allow  under- 
filling a requirement  in  the  higher 
grade 

UFLOLO 

Underflow  percentage  to  allow  under- 
filling a requirement  in  the  current 
grade 

ULIM 

Maximum  number  of  assignments  permitted 
in  a specialty/grade  combination 

ULIMIT 

Maximum  number  of  assignments  permitted 
in  a specialty/segment/grade  combination 

UPBND 

(50) 

Upper  bound  on  amount  of  flow  for 
designated  specialties 

UTIL 

(50,50) 

Utilization  ratios  for  X arcs;  those 

remaining  In  grade: 

99  - primary/alternate  specialty 
combination  not  preferred 
88  - for  m/n  specialty  pair  n is 
a prohibited  alternate 
Other:  a preferred  primary/alternate 

specialty  combination 


XI 

Number  attrited  - solution  value  for 
number  assigned  to  a specialty  attrition 
rate 

YTOUR 

(50) 

Tour  length  for  specialties  in  higher 
grade 

YUTIL 

(50,50) 

Utilization  ratios  for  Y arcs;  promotees: 
99  - primary/alternate  specialty 

combination  not  preferred 
88  - for  m/n  specialty  pair  n is 
a prohibited  alternate 
Other:  a preferred  primary/alternate 

specialty  combination 

ZERO  0 


X -15 


Vari ables 

Name 

A 


alpha 

BETA 

DELTA 

HDR 

IN 

INDEX 
I SUM 

IVAL 

JINDEX 

KEY 


Used  in  Data  Base  Creation  Activity 


Dimension 


(7) 


(3) 


(3) 

(3) 

(3) 


Definition 


Array  to  accept  input  record 
A(l)  Record  type/first  character  of 
row  or  column  name 
A(2)  Year/primary  specialty  number/ 
alternate  specialty  number/grade 
A(3)  Activity  solution  value 
A(4)  Lower  limit  solution  value 
A(5)  Upper  limit  solution  value 
A(6)  Number  of  tours  in  primary 
specialty/number  of  tours  in 
alternate  sped al ty/tour  length 
of  primary  special ty/tour  length 
of  alternate  specialty 
A(7)  Segment  number 

Decoded  first  three  characters  of 
NAME(l)  also  first  character  of  NAME(l) 

Decoded  first  four  characters  of 
NAME (2) 

Decoded  fourth  character  of  NAME(l) 

First  three  double  precision  words  in 
record.  Contains  FMPS  procedure  name, 
section  name  (rows  or  columns),  record 
number  and  last  word  indicator 

Equivalent  to  A(3)  through  A ( 5 ) 

Equivalent  to  A(2) 

Accumulates  A(3)  through  A(5)  for  records 
with  same  year,  specialties,  and  grade 

Contains  solution  values  for  activity, 
lower  limit,  and  upper  limit 

Equivalent  to  A(2) 

FLD  function  of  first  six  characters 
of  NAME (2) 
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Name 

Dimension 

Deflnl tlon 

L 

(19) 

Contains  19  data  values  Indicating  the 
last  single  precision  word  that  could 
possibly  be  used  In  a record  In  0DDBSUD1. 

NAME 

(2) 

Row  or  column  name 

NEXT 

(456) 

Integer  equivalent  of  SOLFIL 

NREC 

Number  of  row  or  column  records  In  SOLFIL 

SOLFIL 

(228) 

Contains  up  to  four  records  (each  con- 
taining 60  double  precision  words)  from 
0DDBSUD1 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 

CHAPTER  XI 

ESSENTIAL  PROGRAM  NARRATIVES 


1.  Purpose.  - The  purpose  of  this  chapter  is  to  provide  narrative 
Information  on  the  ODSAS  FORTRAN  programs,  thereby  supplementing  the 
comments  within  each  source  program  (listed  In  Chapter  XII).  The 
program  narratives  are  arranged  by  phase,  and  activity  within  phase. 
The  following  alphabetical  Index  Is  provided  to  assist  in  locating 
the  respective  program  narratives. 


Initialization  phase  programs 

Page 

INITIAL 

XI -7 

SACSCREATE 

XI -5 

SACSEXTRACT 

XI -2 

SACSPREPRO 

XI -3 

TOURATIOS 

XI -7 

Processing  phase  proqrams 

BOUNDS 

X I -32 

COMB IN 

XI-3A 

CPDIAG 

XI -29 

DATABASE 

X I -33 

DB-CORRECT 

XI -40 

DBC-EN 

XI-40 

HICOL 

X I -28 

HICOLS 

XI  - 28 

HITFILE/INTERFACE 

XI-40 

INPUT 

X I -8 

KEYARC 

XI  - 16 

LINKAGE 

XI  -42 

LOCOL 

X I - 16 

LOCOLC 

XI -17 

LOCOLL 

XI -22 

LOCOLS 

X I - 1 7 

LODIAG 

XI -24 

MAIN 

XI -8 

MASK 

X I -33 

MASKCK 

XI -34 

NEWSAV 

X I -33 

PROCUREMENT 

XI -41 

XI-1 


Page 


RANGE 

XI -31 

RECORD 

XI -37 

RESHI 

XI -15 

RESLO 

XI  -14 

RHS 

XI  -31 

ROWCHP 

XI -9 

SEPARATE 

XI -45 

SORTW 

XI -33 

SORTXY 

XI -33 

UPDATE 

XI -42 

2.  Initialization  Phase  Program  Narratives 

a.  Activity  to  Create  Positional  Requirements  File 


(1)  Program:  SACSEXTRACT 

(a)  This  program  reads  the  SACS  Personnel  and  Equip- 
ment Detail  Record  File  (9-track,  800  BPI  tape(s)  recorded  in 
EBCDIC,  furnished  by  USAMSSA) , extracts  officer  authorization  data 
for  active  army  units  therefrom,  and  produces  a 1600  BPI  FIELDATA 
tape  for  use  on  System  2 at  MILPERCEN.  (See  Figure  1 1 1 -8  for  a 
generalized  graphic  portrayal.) 

(b)  The  user  must  prepare  2 parameter  cards  (card 
images)— the  first  card  indicating  the  number  of  input  tapes  and 
the  second  card  the  reel  numbers  of  the  tape(s).  Entries  on  the 
second  card  must  be  in  A6  format,  and  up  to  6 reel  numbers  may  be 
entered. 

(c)  Each  input  record  contains  76  characters  and  the 
block  size  is  95  records.  The  component  field  (character  number  72) 
and  the  officer  grade  indicator  field  (characters  20  and  21)  are 
validated  for  each  input  record.  For  character  72,  only  the  number 
"1"  (active  arrriy)  is  accepted;  for  character  20,  only  the  letter  "0" 
(officer)  is  accepted,  and,  for  character  21,  only  the  numbers  "2" 
through  "6"  are  accepted. 

(d)  A validity  check  is  also  performed  on  the  primary 
specialty  number  in  each  input  record.  The  primary  specialty  number 
normally  is  located  in  characters  22  and  23.  However,  if  character 
24  is  non-numeric,  then  the  valid  specialty  number  is  located  in 
characters  41  and  42. 

(e)  Each  valid  record  is  written  to  the  output  file 
in  the  45-character  format  shown  in  Table  XI -1. 
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TABLE  XI -1 • Format  of  Valid  Output  Records  Produced  by  the 
SACSEXTRACT  Program 


Print  column 

Data  element 

Print  column 

1 Data  element 

1 

(blank) 

20-25 

EDATE 

2 

Grade 

26-31 

TDATE 

3-4 

Primary  specialty 
number 

32-40 

(blank) 

5-19 

(blank) 

41-45 

Number  authorized 

(2)  Program:  SACSPREPRO 

(a)  This  program  reads  the  45-character  file  created 
In  the  SACSEXTRACT  Run,  decodes  the  Input  record  Into  ten  fields 
and  stores  them  In  array  I RAY ( 1 -10 ) , as  shown  In  Table  XI -2 . 


TABLE  XI-2,  Storage  In  Array  I RAY (1-10)  of  Records  Decoded 
by  the  SACSPREPRO  Program 


SACSEXTRACT 

I RAY ( 1 ) record 

SACSEXTRACT 

I RAY ( 1 ) record 

1 = 1 Grade 

TDATE 

1 = 7 YY 
1 = 8 MM 
1 = 9 DD 

1 = 2 1st  position 

of  specialty 
number 

1=3  2d  position 

of  specialty 
number 

1 = 10  Number 

authorized 

EDATE 

1 = 4 YY 
1 = 5 MM 
1 = 6 DD 
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(b)  The  program  then  edits  the  primary  specialty 
number  field  ( I RAY ( 2 ) and  (3))  in  each  45-character  input  record, 
and  writes  the  edited  record  to  the  file  ODSAPUD10.  For  editing 
purposes,  if  the  second  character  of  the  primary  specialty  number 
(I RAY (3))  is  found  to  be  an  integer,  the  first  character  is  assumed 
to  be  an  Integer  also.  The  primary  specialty  number  is  considered 
valid;  otherwise,  certain  nonstandard  specialty  numbers  (which  may 
appear  in  the  SACS  data)  are  converted  to  authorized  OPMS  specialty 
numbers,  as  shown  in  Table  XI -3 . 


TABLE  XI-3,  Conversion  of  Certain  Nonstandard  Specialty  Numbers  to 
Authorized  OPMS  Specialty  Numbers  by  the  SACSPREPRO 
Program 


Nonstandard 

specialty 

number 

Converted  to 
OPMS  specialty 
number 

Nonstandard 
special ty 
number 

Converted  to 
OPMS  specialty 
number 

1- 

15 

3A,  3B 

53 

2- 

15 

3C,  3D 

52 

4- 

48 

3E,  3F 

45 

5- 

31 

3G , 3H 

46 

5A 

11 

3L  to  3P 

99 

6- 

25 

3U,  3 V 

51 

6A 

36 

3Q 

49 

3S 

97 

3W 

37 

(c)  All  other  nonstandard  numbers  are  considered  to 
be  "00."  The  number  of  such  records  is  accounted  for  by  the  value 
of  the  variable  DBLZRO. 

(d)  After  all  input  records  have  been  edited,  the 
Identity  and  number  of  nonstandard  records  is  pr-!nted  along  with 
the  total  number  of  input  records  read. 


XI  -4 


(3)  Program:  SACSCREATE 

(a)  This  program  reads  a parameter  card  which  identi- 
fies the  starting  date  of  the  projection  period  (YYMMDD)  and  com- 
putes the  dates  for  each  of  the  nine  years  from  the  starting  date, 

In  yearly  Increments  (stored  In  array  ITIME ( 1-10 ) ) . The  program 
then  reads  a record  created  In  the  SACSPREPRO  program  (record  con- 
tains grade,  primary  specialty  number,  EDATE,  TDATE  and  number 
authorized)  and  checks  the  EDATE  and  TDATE  data  fields  against  the 
ITIME  array.  If  the  EDATE  Is  less  than  or  equal  to  ITIME ( 1 ) and 
the  TDATE  Is  greater  than  or  equal  to  ITIME ( 1 ) , the  requirements 
for  the  primary  specialty  are  counted  for  year  1;  otherwise  the 
requirements  would  not  exist  at  I TIME ( 1 ) and  thus  are  not  counted 
for  year  1.  For  example,  If  I TIME ( 1 ) equals  770930,  and  the  EDATE 
Is  760930  (thus  less  than  or  equal  to  ITIME ( 1 ) ) , and  the  TDATE  Is 
790930  (thus  greater  than  or  equal  to  ITIME(I)),  then  the  number 

of  officers  authorized  applies  In  the  year  beginning  at  ITIME(I). 

(b)  A data  editing  procedure  Is  also  employed  to 
detect  erroneous  specialty  numbers  In  the  records.  If  the  specialty 
number  field  value  does  not  correspond  to  Its  prescribed  Integer 
format,  the  record  Is  erroneous.  The  record  Is  re-read  with  an 
alphanumeric  format  to  ascertain  the  value  In  the  specialty  number 
field;  the  erroneous  record  Is  written  out  to  the  printer  for  user 
verification  and  accounting  purposes.  The  record  is  bypassed  and 
not  counted  toward  the  force  structure  requirements.  If  more  than 
200  records  are  bypassed,  the  program  branches  in  order  to  write 
out  the  requirements  derived  thus  far  (array  ITREQ) . Then  the 
program  writes  out  an  error  message  and  stops.  If  the  re-read  Is 
also  erroneous,  then  an  error  message  Is  generated  and  the  program 
Immediately  branches  in  a manner  similar  to  that  above  for  bypassing 
200  records. 

(c)  When  the  editing  Is  completed,  the  program  per- 
forms a redistribution  of  other  non-OPMS  specialty  requirements 
Into  authorized  OPMS  specialties  as  shown  In  Table  XI-4. 
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TABLE  XI-4,  Redistribution  of  Other  Non-OPMS  Specialty  Requirements 
into  Authorized  OPMS  Specialties  by  the  SACSCREATE 
Program 


Non-OPMS 
specialty  to  be 
redistributed 

Percent  of  the  require- 
ments for  this  specialty 
that  are  to  be  redistrib- 
uted to  OPMS  specialties 

OPMS  specialty  number 
into  which  redistributed 

07 

100 

15 

08 

100 

42 

10 

45 

11 

18 

12 

27 

13 

10 

14 

20 

100 

21 

22 

100 

21 

23 

100 

21 

24 

100 

25 

34 

100 

35 

40 

75 

41 

25 

42 

98 

100  (grades  5 and 

70 

6) 

100  (grades  2,  3 

92 

and  4) 

99 

100 

92 

70 

a / 

71-97 

-^Allocated  according  to  relative  strength  in  each  specialty. 

71  through  97,  after  all  other  redistribution 

is  completed. 
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b.  Activity  to  Create  Preference  Files 

(1)  Program:  TOURATIOS 

(a)  This  program  operates  in  two  modes,  (1)  to  create 
a file  of  utilization  ratios,  or,  (2)  to  update  an  existing  file  of 
utilization  ratios.  The  first  parameter  card  Identifies  whether 
the  CREATE  mode  or  the  UPDATE  mode  Is  desired.  The  difference 
between  the  two  modes  Is  that,  in  the  CREATE  mode,  the  ratios  are 
initialized  at  99  (meaning  no  preference)  for  non-combat  arms 
specialties,  and  88  (a  unique  number  Indicating  a combat  arms 
specialty)  for  combat  arms  specialties,  whereas  for  the  UPDATE 
mode,  the  ratio  initialization  Is  bypassed.  The  second  parameter 
card  Identifies  the  specialties  that  are  prohibited  as  alternate 
specialties  (l.e.,  combat  arms  specialties). 

(b)  The  program  then  reads  from  a previously  created 
card-image  file  (ODTURUD01)  the  preferred  specialty  pairing  (e.g., 
Infantry/Pcrsonnel  Management  would  be  entered  as  1142)  followed  by 
decimal  utilization  ratios  and  tour  lengths  of  the  primary  spe- 
cialty for  the  grades  of  COL,  LTC  and  MAJ  respectively.  The  decimal 
utilization  ratios  are  then  converted  to  a ratio  of  two  Integer 
values.  This  Is  done  by  first  determining  how  the  decimal  ratio 
relates  to  a set  of  decimal  values  (In  the  UTLR8  array )--e.g. , the 
program  asks,  "Is  It  greater  than  the  first  value,  but  less  than 
the  second?"  Then  the  above  relationship  can  be  equated  to  a pre- 
defined Integer  number  (in  the  IUTLR8  array)  identifying  the  ratio 
(e.g.,  an  Input  decimal  ratio  of  .12  Is  in  the  range  of  0.0  to  0.18 
which  equates  to  the  Integer  15,  which,  In  turn,  means  1 tour  in  the 
primary  specialty  followed  by  5 tours  In  the  alternate  specialty). 

(c)  For  each  input  of  a preferred  specialty  pair,  a 
utilization  ratio  for  the  specialty  pair  In  reverse  order  is  also 
produced  (i.e.,  the  input  primary  specialty  becomes  the  alternate 
specialty).  For  the  reverse  order  specialty  pair,  the  utilization 
ratios  are  the  complements  (e.g.,  an  input  decimal  ratio  of  .12 
for  specialty  pair  12/42,  becomes  (1.0  - .12  = 0.88)  for  specialty 
pair  42/12). 

c.  Activity  to  Compute  Attrition/Promotion  Rates  and  Create 
Input  Parameters  File 

(1)  Program:  INITIAL 

(a)  This  program  reads  the  ODR8SUD01  file  of  param- 
eters, populations  and  attrition  rates  for  a reference  population, 
performs  all  calculations  needed  to  produce  the  attri tl on/promotion 
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rates  used  in  all  the  system  segments,  and  creates  the  input  file 
for  processing  the  first  COL  run.  The  rate  computations  are  ex- 
plained in  detail  in  Appendix  D of  the  ODSAS  Study  Report  (refer- 
ence 4) . 

(b)  Any  specialty  number  input  is  edited  to  insure 
conformance  with  the  authorized  set  of  OPMS  specialty  numbers 
(stored  in  the  ISPEC  array).  In  addition,  the  parameters  shown  in 
Table  XI -5  are  edited  for  the  range  of  values  indicated. 


TABLE  XI -5,  Parameters  Edited  by  the  INITIAL  Program 


Parameter 


Range  of  acceptable  values 


Number  of  specialties 

Number  of  years  in  projected  period 

Number  of  Advanced  Entry  Specialties 


1 - 50 
1 - 9 
1 - 20 


3.  Processing  Phase  Program  Narratives 
a . Matrix  Generator  Activity 

(1)  Program:  MAIN.  - This  is  the  "executive"  program  in 

the  matrix  generator  activity  which  specifies  the  calling  sequence 
of  the  subroutines. 

(2)  Program:  INPUT 

(a)  This  program  reads  the  input  parameter  file 
(ODINPUD01)  created  for  the  current  grade  segment,  the  specialty 
preferences  file  (ODRATUD01),  and  the  specialty  requirements  file 
(ODSACUD01).  The  problem  size  parameters,  authorized  strengths  by 
grade,  identification  of  specialties  to  have  upper  bounds  on  total 
strength,  the  first  set  of  segmentation  parameters  (segmentation 
code,  followed  by  upper  bound  information  for  each  specialty  identi' 
fied  in  card  3),  and  percentage  fill  allowed  in  segment  1 are  read 
from  the  input  parameters  file. 

(b)  Continuation,  or  survival  rates  (1.0  - attrition 
rate),  are  computed  for  use  in  aging  the  flows  through  the  network. 
SURVHI(j)  is  the  survival  rate  used  for  Y arc  flows  in  year  j,  and 
SURVLO(j)  is  the  survival  rate  used  for  X arc  flows  in  year  j. 
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(c)  The  utilization  ratios  and  tour  lengths  are  ex- 
tracted from  the  specialty  preferences  file  (ODRATUD01 ) for  the 
current  and  next  higher  grade.  The  utilization  ratios  and  tour 
lengths  for  majors  are  also  used  in  the  captain  and  lieutenant  seg- 
ments for  those  flows  representing  dual  qualified  officers. 

(d)  The  force  structure  requirements  for  the  current 
grade  and  the  next  higher  grade  are  then  selected  from  the  specialty 
requirements  file.  The  REQ1  array  holds  the  requirements  data  for 
the  next  higher  grade  above  the  current  segment  grade  (If  the  next 
higher  grade  Is  greater  than  6,  REQ1  Is  blank),  and  initially  the 
REQ2  array  holds  the  requirements  data  for  the  current  grade.  The 
REQ1  array  is  then  added  to  the  REQ2  array  so  that  the  REQ2  array 
contains  the  total  requirements  (current  grade  plus  next  higher 
grade).  REQ1  remains  with  the  next  higher  grade  requirements  data. 

(3)  Program:  ROWCHP 

(a)  This  program  produces  the  type  and  name  of  all 
constraints  (except  for  the  flow  control  constraints  upon  flows 
between  different  specialties).  The  type  and  name  selected,  how- 
ever, depend  upon  the  grade  and  year  In  the  projection  period. 

(b)  The  criteria  governing  selection  of  the  constraint 
types  and  names  for  Grades  6,  5 and  4 In  the  years  in  the  projection 
period  are  as  shown  In  Table  XI-6. 

(c)  The  sets  of  constraints  described  in  Table  XI -6 
are  produced  for  each  year,  for  each  OPMS  specialty.  However,  when 
the  segmentation  wlthln-grade  option  Is  In  effect,  the  IPHASE  sub- 
routine Is  called  to  determine  whether  the  processing  Is  for 
Segment  1 or  Segment  2.  If  for  Segment  1,  then  all  specialties 
are  Included.  If  the  processing  Is  for  Segment  2,  then  Segment  1 
primary  specialties  are  excluded  from  consideration. 
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TABLE  XI-6,  Criteria  Governing  Selection  by  the  ROWCHP  Program  of  Year-Dependent  Constraint  Types 
and  Names  for  Grades  6 , 5 and  4 


(d)  Two  additional  constraints,  Independent  of  year 
and  segmentation  option,  are  also  constructed  for  Grades  6,  5 and 
4.  These  constraints  are  as  shown  In  Table  XI-7. 


TABLE  XI-7,  Additional  Constraint  Types  and  Names  Froduced  by  the 


ROWCHP  Program  for  Grades  6,  5,  and  4 

Constraint 

Type®/ 

Constraint 

Name 

Description/comment 

L 

W0_  JJBSG 

the  third  and  fourth  positions 

(Indicated  by  ) are  specialty 

numbers  having  specific  upper 
bounds  on  the  number  of  officers 
to  be  assigned  that  specialty 

L 

TOTAUTH 

total  authorized  strength  for  the 
grade 

3/l  Indicates  "less  than  or  equal  to" 


(e)  The  criteria  governing  selection  of  the  constraint 
types  and  names  for  Grade  3 In  the  years  In  the  projection  period 
are  as  shown  In  Table  XI-8. 

(f)  The  sets  of  constraints  described  In  Table  XI-8 
are  produced  for  each  year,  for  each  OPMS  specialty,  except  as  noted 
for  W0  LINC  at  T_. 

v 

(g)  The  TOTAUTH  constraint  Is  also  constructed  for 
Grade  3,  In  the  same  manner  as  described  for  higher  grades  in  (d) 

above.  However,  WfJ UBSG  constraints  are  not  constructed  for 

Grade  3. 
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TABLE  XI-8,  Criteria  Governing  Selection,  by  the  ROWCHP  Program,  of 
Year-Dependent  Constraint  Types  and  Names  for  Grade  3 


Year 


T 

1 

0 

Vtnyrs-i 

tnyrs 

Constraint 

Type—' 

[ Constraint 
Name^/ 

Constraint 

Type—' 

Constraint 

Name£/ 

Constraint 

TypefL' 

Constraint 

Name—' 

E 

W0_  _G0Z0 

L 

E 

Nn_  _G0Z0 

E 

W0_  _LINC— / 

E 

Nn_  _G0Z0 

E 

Nn LINC^/ 

E 

Nn_ Cl  NC 

i/E  indicates  "equal  to";  L indicates  "less  than  or  equal  to". 

H/The  third  and  fourth  positions  in  the  name  (Indicated  by ) 

are  for  the  specialty  number. 

£'A  constraint  is  constructed  at  TA  for  BES  only. 

H/ In  the  CPT  segment,  the  variable^ICHG  has  the  value  of  the 
last  year  when  there  are  CPTs  with  8 YOS  or  less.  Therefore,  If  the 
year  Is  greater  than  ICHG,  and  thus  no  CPTs  with  8 YOS  or  less, 

Nn  _L INC  constraints  are  not  cconstructed. 


(h)  The  criteria  governing  selection  of  the  constraint 
types  and  names  for  Grade  2 in  the  years  In  the  projection  period 
are  as  shown  In  Table  XI-9. 
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TABLE  XI-9,  Criteria  Governing  Selection  by  the  ROWCHP  Program  of 
Year-Dependent  Constraint  Types  and  Names  for  Grade  2 


Year 


T0 

' TNYRS-1 

tn 

YRS 

Constraint 

Typei/ 

Constraint  name^/ 

Constraint 

Type®/ 

Constraint  name^/ 

L 

Nn_ 

_creq£/ 

L 

Nn_  _CREQC/ 

E 

Nn_ 

_G0Z0 

E 

Nn_  _G0Z0 

E 

Nn_ 

_LINC 

E 

Nn 

CINC—/ 

®/e  Indicates  "equal  to";  L Indicates  "less  than  or  equal  to". 

b/The  third  and  fourth  positions  In  the  name  (indicated  by  ) 

are  for  the  specialty  number. 

£'In  the  LT  segment,  the  variable  ICHG  has  the  value  of  the 
first  year  when  some  LTs  would  attain  8 YDS.  Therefore,  only  when 
the  year  Is  greater  than  ICHG  will  Nn CREQ  constraints  be  con- 

structed. 

£'If  the  year  Is  greater  than  or  equal  to  ICHG,  then  Nn CINC 

constraints  are  constructed. 


(1)  The  sets  of  constraints  described  in  Table  XI-9 
are  produced  for  each  year,  for  each  OPMS  specialty. 

(j)  The  TOTAUTH  constraint  Is  also  constructed  for 
Grade  2,  In  the  same  manner  as  described  for  higher  grades  In  (d) 

and  (g)  above.  However,  W 0 UBSG  constraints  are  not  constructed 

for  Grade  2. 
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(4)  Program:  RESLO 


(a)  This  program  computes  code  numbers  ("0"  or  "1") 
Identifying  which  X arcs  (for  Grades  6,  5,  and  4)  have  flow  In  them 
and  stores  the  codes,  In  a packed  form,  In  the  RTYPE  array  (except 
as  described  In  (b)  below).  Given  the  tour  length  for  specialty  n 
and  the  utilization  ratio  for  each  preferred  specialty  pair  that 
starts  at  T«  In  Specialty  n,  the  number  of  years  when  assignments 
will  be  made  from  Specialty  n are  computed  first.  Then,  for  each 
of  those  years,  a number  of  arcs  are  identified  for  each  preferred 
specialty  pair  (the  variable  INDEX  = ((YEAR  x NSPEC2)  + (N-l)  x 
(NSPEC)  + M) ) defines  the  arc's  relative  position  In  the  network), 
where  officers  with  a particular  specialty  pair  would  be  assigned. 
For  example,  If  some  officers  with  Specialties  11  and  49  leave 
Specialty  11  at  T«  and  others  leave  at  T.  (with  Specialty  49  being 
a two-year  specialty),  the  paths  (arcs)  would  be  as  shown  In  Figure 
XI-1. 


FIGURE  XI-1,  Example  of  Arcs  Identifiable  as  Containing  Flow  and 
Thus  Assigned  a Code  Number  by  the  RESLO  Program  (for 
Grades  6,  5 and  4) . 


In  this  example,  the  Identified  arcs  (both  solid  and  dashed  lines) 
would  all  receive  a code  number  "1",  Indicating  flow;  all  other  arcs, 
being  without  flow,  would  receive  a code  number  "0"  at  this  point  In 
the  matrix  generator  activity. 
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(b)  For  Grades  5 and  4,  code  numbers  are  also  gener- 
ated to  Indicate  when  promotees  (to  Grades  6 and  5,  respectively) 
would  transfer  from  one  specialty  to  the  other.  Promotions  can 
occur  at  any  node,  and  the  flow  Is  redirected  to  a Y arc;  however, 
the  flow  representing  promotees  only  moves  to  the  other  specialty  at 
the  end  of  a tour  length.  If  a promotion  occurs  during  a tour 
length,  the  promotee  remains  assigned  to  the  specialty  In  which  he 
Is  serving  (l.e.,  tour  length  takes  precedence  over  reassignment 
required  because  of  promotion).  The  codes  so  generated  are  stored, 
In  packed  form,  in  the  RESFLO  array.  The  code  numbers  are  as  shown 
In  Table  XI-10. 


TABLE  XI- 

10,  Code  Numbers  Generated  by  the  RESLO  Program  to  Indicate 
When  Promotees  In  Grades  5 and  4 Transit  From  One  Spe- 
cialty to  Another 

Code 

Number 

Meaning 

1 

Flow  of  promotees  from  primary  specialty  to  alternate 
specialty 

2 

Flow  of  promotees  from  alternate  specialty  to  primary 
specialty 

3 

Flow  of  promotees  where  the  "from"  specialty  is  both 
a primary  and  an  alternate 

(5)  Program:  RESHI 

(a)  This  program  computes  the  codes  Identifying  which 
Y arcs  (for  Grades  5,  4,  3,  and  2)  have  flow  In  them  and  the  classi- 
fication of  the  flow  (l.e.,  flow  from  an  officer's  primary,  or 
alternate,  to  an  alternate  or  primary,  respectively,  or  both).  The 
codes  are  stored  In  a packed  form  In  the  RESFLO  array. 

(b)  For  Grades  5 & 4,  the  arcs  which  represent  the 
path  segments  where  promotees  move  to  their  second  specialty  for 
the  first  time  were  coded  In  the  RESLO  subroutine.  Each  of  those 
arcs  Is  treated  In  the  RESHI  subroutine  as  the  beginning  of  a path 
for  promotees  and  the  remainder  of  the  path  Is  logically  constructed 
and  coded  to  Indicate  the  classification  of  flow  In  all  the  path 
segments  (In  a manner  similar  to  that  described  In  subroutine 
RESLO).  Codes  of  1,  2 or  3 are  used,  as  in  RESLO,  and  have  the 
same  meanings. 
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(c)  For  Grade  3,  the  codes  identifying  promotions 
(actually,  designations  of  alternate  specialties  at  the  eighth  YOS 
point)  are  first  generated  in  this  subroutine.  For  each  BES, 
starting  at  year  0 and  continuing  up  through  the  last  year  where 
CPTs  will  be  designated  alternate  specialties  (value  of  the  variable 
ICHG),  the  arc  leaving  the  BES  and  going  to  a preferred  alternate 

Is  coded  as  a "1"  (promotion  from  primary  specialty).  Each  of  the 
arcs  coded  with  a "1"  is  then  treated  as  the  beginning  of  a path 
(similar  to  treatment  of  Grades  5 & 4 described  in  (b)  above), 
and  the  remainder  of  the  path  is  logically  constructed  and  coded 
to  indicate  the  classification  of  flow  in  all  the  path  segments 
(as  described  for  subroutine  RESLO) . 

(d)  The  codes  for  the  flows  representing  CPT/MAJ  with 
greater  than  eight  YOS  (Y  arc  flows)  are  then  computed  in  the  same 
manner  as  described  in  RESLO  for  X arcs.  The  codes  for  this  group 
are  also  stored  in  the  RESFLO  array. 

(e)  For  Grade  2,  the  codes  identifying  promotions 
(actually  designation  of  alternate  specialties  at  the  eighth  YOS 
point)  are  generated  for  arcs  beginning  at  the  year  defined  by  the 
variable  ICHG.  During  the  years  commencing  at  ICHG  and  continuing 
to  NYRS,  the  flows  in  the  Y arcs  are  not  restricted  (rather  the 
requirements  draw  the  available  flow)  unless  earlier  designees  are 
due  to  return  to  their  other  specialty.  In  this  latter  case,  the 
restrictive  flow  constraint  is  a "less  than  or  equal  to"  type,  since 
designations  are  also  occurring  in  that  year  and  they  are  require- 
ments driven,  and  therefore  not  subject  to  an  equality  constraint. 

(6)  Program:  KEYARC.  - This  program  constructs  the  key 

arc  relationship  constraints  for  grades  6 through  3 (the  LT  segment 
does  not  utilize  this  type  constraint).  A "less  than  or  equal  to" 
type  constraint  is  constructed  for  each  preferred  specialty  pair 
where  the  primary  specialty  number  is  less  than  the  alternate  spe- 
cialty number.  For  instance,  the  constraint,  UR2142,  relates  the 
flow  in  the  arcs  W04221  and  W02142. 

(7)  Program:  LOCOL.  - This  program  computes  the  number 

of  preferences  tnat  apply  to  the  grade  segment  or  subsegment  to  be 
processed.  The  number  of  constraints  by  type  and  the  total  number 
of  constraints  are  then  computed  and  those  values  are  then  included 
In  the  matrix  generator  statistical  summary  report.  Lastly,  de- 
pending upon  the  grade  segment  to  be  processed,  the  appropriate 
subroutine— LOCOLS  (for  Grades  6,  5,  and  4),  LOCOLC  (for  Grade  3), 
or  LOCOLL  (for  Grade  2)--1s  called  to  define  variables  for  the 
FMPS  COLUMN  chapter  input. 
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(8)  Program:  LOCOLS.  - This  program  has  three  major 

functions,  described  In  Subparagraphs  (a)  (b)  and  (c)  below, 
respectively. 

(a)  The  first  function  Is  to  define  variables  for 
the  FMPS  COLUMN  chapter  Input  for  grades  6,  5 and  4.  These  varia- 
bles, with  the  several  distinct  forms  for  their  names  and  the 
coefficients  associated  therewith  are  as  shown  In  Table  XI-11. 

(b)  The  second  function  of  LOCOLS  Is  to  produce  a 
record  for  Input  to  the  current  segment  data  base  for  each  W0mn, 
and  Xjmn  variable.  Each  W(Jmn  record  contains  the  variable  name, 
the  utilization  ratio,  and  the  tour  lengths  of  specialties  m and  n. 
Each  Xjmn  variable  contains  the  variable  name,  the  utilization 
ratio,  the  tour  lengths  of  specialties  m and  n,  and  the  Identifica- 
tion of  an  X and/or  Y arc  In  the  path  starting  with  Xjmn. 

(c)  The  third  function  of  LOCOLS  Is  to  produce  that 
part  of  the  optional  matrix  generator  report  which  Indicates  the 
last  exit  year  points  for  officers  with  specialties  m and  n.  (See 
Chapter  V— paragraph  3a(2)(c)  and  Figure  V-9— for  a detailed 
description  of  the  report.) 

(9)  Program:  LOCOLC.  - This  program  has  two  major 

functions,  described  In  Subparagraphs  (a)  and  (b),  below,  respec- 
tively. 

(a)  The  first  function  is  to  define  variables  for  the 
FMPS  COLUMN  chapter  Input  for  Grade  3.  These  variables,  with  the 
several  distinct  forms  for  their  names,  and  the  coefficients  asso- 
ciated therewith  are  as  shown  In  Table  XI-12. 

(b)  The  second  function  of  LOCOLC  Is  to  produce  a 
record  for  Input  to  the  current  segment  data  base  for  each  W0mn 
variable  shown  In  Table  XI-12.  Each  record  contains  the  variable 
name,  the  utilization  ratio,  the  tour  lengths  of  specialties  m and 
n,  the  Identification  of  the  Y arc  fed  by  W0mn,  and  the  percentage 
of  W0mn  that  feeds  the  Y arc. 


TABLE  XI-11,  Variable  Names  and  Coefficients  (for  Grades  6,  5 and  4)  Defined  by  the  LOCOLS 
Program  for  FMPS  COLUMN  Chapter  Input  (continued  on  next  page) 
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TABLE  XI-12,  Variable  Names  and  Coefficients  (for  Grade  3)  Defined  by  the  LOCOLC  Program 
for  FMPS  COLUMN  Chapter  Input  (continued  on  next  page) 
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TABLE  XI -12,  Variable  Names  and  Coefficients  (for  Grade  3)  Defined  by  the  LOCOLC  Program 


(10)  Program:  LOCOLL.  - This  program  has  two  major 

functions,  described  in  subparagraphs  (a)  and  (b),  below,  respec 
tively. 


(a)  The  first  function  is  to  define  variables  for 
the  FMPS  COLUMN  chapter  input  for  Grade  2.  These  variables,  with 
the  several  distinct  forms  for  their  names,  and  the  coefficients 
associated  therewith  are  as  shown  in  Table  XI-13. 

(b)  The  second  function  of  LOCOLL  is  to  produce  a 
record  for  input  to  the  current  segment  data  base  for  each  X000n 
and  Xjmn(m=n)  variable  shown  in  Table  XI-13.  Each  record  contains 
the  source  variable  name,  the  identification  of  an  X or  Y arc  in 
the  path,  and  the  percentage  of  the  source  variable  that  feed's  the 
X or  Y arc. 


TABLE  XI -13,  Variable  Names  and  Coefficients  (for  Grade  2)  Defined 
by  the  LOCOLL  Program  for  FMPS  COLUMN  Chapter  Input 


Constraint 

VdriaDle 

Names 

Coefficients 

X000n 

W0nGOZO 

+1.000 

N0nLINC 

( 1 . 0-PRMT ( 1 ) ) 

TOTAUTH 

+1.000 

Xjmn 

NjmGOZO 

-1.000 

(m=n. 

and 

N(j+l)nG0Z0 

SURVL0( j+1) 

j >0  / 

NjmLINC 

-1.000 

N(j+l)nTREQ 

+1.000 

N( j+1 )nLINC 

(SURVLO( j+1 ) ) x ( 1 .0-PRMT( j+2) ) 

N(j+l)nCINC— ^ 

( SURVLO( j+1 ) ) x ( PRMT ( j +2 ) ) 

Yjmn 

NjnGOZO 

-1.000 

(m=n, 

and 

J>0 

but 

N(  j+1 )nGOZO 

SURVHI ( j+1 ) 

N(  j+1 JnTREQ 

+1.000 

<NYRS) 

NjnCINC^/ 

-1.000 

N(j+l)nCREQ-/ 

+1.000 

N(j+l)nCINC— ^ 

(3URVHI (j+1 ) ) X (CPTREM( j+1 ) ) 

|/only  defined  If  (j+1)  Is 
-'only  defined  If  j>_  ICHG 

^ ICHG  (year  when  designations  begin 
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| 

(11)  Program:  LODI AG.  - This  program  defines  Xjmn 

(j>0  and  m^n)  variables  and  their  coefficients  In  the  TREQ,  GOZO, 
LINC,  and  flow  control  (R  prefix)  type  constraints  for  Grades  6, 

5 and  4. 


(a)  The  flow  in  each  X arc,  representing  officers 
departing  a Specialty  n for  the  first  time  since  T*,  is  traced 
along  a path  defined  by  the  grade,  utilization  ratio  and  tour 
length.  The  general  procedure  for  an  X arc  is  as  Illustrated  for 
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in  Figure  XI -2 . 


(b)  The  flow  in  each  of  the  arcs  described  above 
also  Includes  that  portion  of  the  flow  representing  officers  due 
for  promotion  at  each  node  along  the  path.  The  path  for  this 
latter  portion  is  traced  to  the  first  point  in  the  path  of  the 
X arc  where  a Yjmn  (j>0  and  ntfn)  arc  would  originate. 


1_.  Since  the  promotion  of  colonels  (Grade  6) 
is  not  specifically  modeled  in  ODSAS  (such  promotion  is  considered 
as  a loss  from  the  colonel  population),  the  example  in  Figure  XI -2 
is  fully  descriptive  of  the  X arcs  in  the  COL  segment. 


2^.  In  the  LTC  and  MAJ  segments,  however,  the  pro- 
motion consideration  is  applicable.  The  path  of  promotees  depends 
upon  the  tour  length  of  the  specialty  at  the  point  of  promotion.  If 
promotion  and  tour  length  completion  dates  coincide,  promotees  move 
to  the  alternate  specialty.  Otherwise,  they  remain  in  the  specialty 
of  current  assignment  until  one  tour  length  has  been  completed. 

For  example,  the  promotees  in  Specialty  49  at  Tj  would  continue  in 
Specialty  49  until  T£,  when  they  would  be  reassigned  to  Specialty 
11;  similarly,  those  promoted  in  Specialty  49  at  T^  would  be  re- 
assigned to  Specialty  11  at  that  time  since  the  2-year  tour  length 
for  officers  in  X^i^g  is  completed  at  To.  The  promotees  are 
described  by  a fraction  of  the  original  x arc  through  the  point 
where  the  first  flow  control  (RES  type)  constraint  for  a Y arc  is 
encountered.  The  RES2GR  subroutine  of  LODIAG  computes  the  value  of 
that  fraction  of  the  X arc  to  be  assigned  to  the  Y arc.  This  pro- 
cedure is  explained  in  more  detail  in  Figure  X I -3 . 
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FIGURE  XI-2,  Illustrative  Example  of  the  General  Procedure  In 
LODIAG  Program  for  Defining  X Arc  Variables  and 
Coefficients  for  FMPS  COLUMN  Chapter  Input 


Assume  a starting  population  of  200  at  T0, 


variables  and  Coefficients  When  Promotion  Considerations  are 
5 and  4),  for  FMPS  COLUMN  Chapter  Input  (concluded) 


(c).  In  addition  to  the  functions  of  defining  paths 
for  X arcs  and  inputs  for  Y arcs  described  respectively  in  (a)  and 
(b)  above,  LODI AG  also  defines  the  XNn  variables  for  FMPS  COLUMN 
chapter  input  as  shown  in  Table  XI -14 . 


TABLE  XI-14,  XNn  Variable  Names  and  Coefficients  Defined  by  the 
LODIAG  Program  for  FMPS  COLUMN  Chapter  Input 


. Constraint 

Variable 

Names 

Coefficients 

XNn 

N(NYRS)nG0Z0 

-1.000 

OBJECTI V 

+ 1 . 000 

(12)  Program:  HICOL.  - This  program  tests  the  grade 

segment  identification  and  either  returns  (if  grade  equals  6),  or 
calls  the  appropriate  subroutine  (for  other  grades).  HICOLS  is  the 
subroutine  for  Grades  5,  4 and  2,  and  CPDIAG  is  the  subroutine  for 
Grade  3. 


(13)  Program:  HICOLS.  - This  program  defines  certain 

variables  for  the  FMPS  COLUMN  chapter  input  for  Grades  5,  4 and  2. 
These  variables,  with  the  several  distinct  forms  for  their  names 
and  the  coefficients  associated  therewith  are  as  shown  in  Table 
XI -15 . 


XI  -28 


TABLE  XI-15,  Variable  Names  and  Coefficients  Defined  by  the  HICOLS 
Program  for  FMPS  COLUMN  Chapter  Input 


Constraint 

Variable 

Grade 

Names 

Coefficients 

Yjmn 

(J>1. 

m=n) 

4,5 

NjmnGOZO 

-1.000 

N(j+l)nG0Z0 

SURVHI (j+1) 

NjmCINC 

-1.000 

N(  j + 1 )nCREQ 

+1.000 

N(j+l)nTREQ 

+1.000  (defined  only 

If  (j+1)  i nyrs) 

Yjmn 

2.4,5 

NjmGOZO 

-1.000 

(J>0 

for  grades 

N(j+l)nG0Z0 

SURVHI (j  + 1 ) 

4 and  5, 

m^n; 

j > I CHG 

RESJmn 

-1.000 

for  grade 

2,  m^n) 

N(j+l)nCREQ 

+1.000 

N(j+l)nTREQ 

+1.000 

Yjmn 

(J>0. 

mffn ) 


4,5  In  addition  to  above,  compute  path  similar 
to  that  of  the  general  procedure  for  X arcs 
described  in  LODIAG,  l.e.,  by  defining  the 
NjnCINC,  RESJnm  and  RESjmn  constraints  and 
their  coefficients 


XNn 


2 N(NYRS)nG0Z0  -1.000 
OBJECTI V +1.000 


(14)  Program:  CPDIAG.  - This  program  has  two  functions, 

described  In  Subparagraphs  (a)  and  (b)  below,  respectively. 

(a)  The  first  function  Is  to  define  the  Yjmn 
(j>0  and  m^n)  variables  and  their  coefficients  in  the  TREQ,  GOZO, 
CINC  and  flow  control  (RES-prefix)  type  constraints  for  Grade  3. 
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The  flow  In  each  Y arc  representing  officers  (CPT/MAJ  with  greater 
than  or  equal  to  8 YOS)  departing  a specialty  m for  specialty  n 
for  the  first  time  since  T*  is  traced  along  a path  defined  by  the 
utilization  ratio  and  tour  length  for  Grade  4.  The  general  pro- 
cedure for  each  Y arc  is  as  Illustrated  in  Figure  XI-4. 


1.  Assume:  Tour  lengths  of  2 years  in  both  Specialties  11  e,id  49, 

NYRS  = 4,  and 

Survival  rate  in  current  grade  (1.0  - attrltlr.i  rate) 
is  90  percent  in  each  year. 

2.  Then  the  paths  for  the  Y arcs  are: 


3.  And  the  constraint  names  and  coefficients  defined  by  CPDIAG 
would  be: 

Constraint  names  Coefficients 


N011GGZO 
RES01149 
N149G0Z0 
N149TREQ 
N149CINC 
RES2491 1 
N311CINC 


-1.000 
-1.000 
+0.900 
+1 .000 
+0.900 

+0.810  = (0.9)  x (0.9) 

+0.720  = (0.9)  x (0.9)  x (0.9) 


FIGURE  XI-4,  Illustrative  Example  of  the  CPDIAG  Program  Procedure 
for  Defining  Y Arc  Constraint  Names  and  Coefficients 
(Grade  3)  for  FMPS  COLUMN  Chapter  Input 


(b)  The  second  function  of  CPDIAG  is  to  define  the 
XNn  variables  for  the  Grade  3 segment.  The  constraint  names  and 
coefficients  are  as  shown  in  Table  XI-16. 
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TABLE  XI -16 , Constraint  Names  and  Coefficients  (for  Grade  3) 
Defined  by  the  CPDIAG  Program  for  FMPS  COLUMN 
Chapter  Input 


Variable 

Grade 

Constraint 

Names 

Coefficients 

XNn 

3 

N(NYRS)nG0Z0 

-1.000 

OBJECTIV  +1.000 


(15)  Program:  RHS.  - This  program  defines  the  nonzero 
b-coefflclents  for  the  FMPS  RIGHT-HAND  SIDE  chapter  Input  for  all 
grades  for  the  constraints  shown  in  Table  XI-17. 


TABLE  XI-17,  Nonzero  b-coeffi clents  Defined  by  the  RHS  Program 
for  FMPS  RIGHT-HAND  SIDE  Chapter  Input 


Constraint  names 

Grade 

Coefficients  */ 

NjmCREQ 

4,5 

REQ1 ( INDEX ) , where  INDEX  = ( ( k- 1 ) 
x (NYRS+1 ) ) + 1 

NjmCREQ 

2 

Same  as  above,  but  only  defined 
If  J > I CHG 

NjmTREQ 

(j<NYRS) 

all 

REQ2 ( INDEX ) , where  INDEX  = ((k-1) 
x (NYRS+1 ) ) + 1 

W0mUBSG 

4,5,6 

UPBND(m) 

TOTAUTH 

all 

AUTHMX(JGRADE) 

URmn 

(m<n) 

3, 4, 5,6 

0.025  x (N0mTREQ  b-coefflcient  + 
N0nTREQ  b-coeff Iclent) ; l.e., 

5 percent  of  average  requirement 
for  specialties  m and  n at  Tjj 

k Is  an  Integer  number,  In  the  range  of  1-50,  Indicating  the 
position  of  the  OPMS  specialty  number  within  the  internal  RHS  file. 

(16)  Program:  RANGE.  - This  program  computes  ranges  on 

selected  b-coeffl clents  for  the  FMPS  RANGE  chapter  Input  for  all 
grades  except  Grade  2.  Constraint  names,  grades,  and  coefficients 
are  as  shown  In  Table  XI -18. 
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TABLE  XI-18,  Ranges  on  Selected  b-coefficients  Computed  by  the 
RANGE  Program  for  FMPS  RANGE  Chapter  Input 


Constraint  names 


Grade 


RANGE  coefficients 


NjmTREQ 


URmn 

(m<n) 


3 REQ2(INDEX)  x (OFLOHI)  x (j+2), 

where  INDEX  = (m-1)  x NSPEC  x 
(NYRS+1)  + j+1 ; computed  only 
if  m is  an  AES 

3, 4, 5, 6 0.025  x (N0mTREQ  b-coefficient  + 

N0nTREQ  b-coefficient);  i.e., 

5 percent  of  average  requirement 
for  specialties  m and  n at  T ^ 


(17)  Program:  BOUNDS.  - This  program  defines  bounds 

(upper,  lower,  fixed}  for  certain  types  of  variables  for  the  FMPS 
BOUNDS  chapter  input,  as  shown  in  Table  XI -19 . 


TABLE  XI-19,  Upper,  Lower,  and  Fixed  Bounds  Defined  by  the  BOUNDS 
Program  for  FMPS  BOUNDS  Chapter  Input 


Variable 

Grade 

Bound  type 

Bound  value 

X000n 
(where  n 
= selected 
specialties 
identi fied 
for  control 
of  input) 

4,5,6 

UP 

UPBND(n)  - REQ2( INDEX ) , where 
INDEX  = (n-1 ) x (NYRS+1)  + 

1;  (i.e.,  total  budget  auth- 
orization for  Specialty  n, 
minus  the  total  requirements 
for  Specialty  n at  T^) 

X000n 

2 

UP 

REQ2 ( I NDEX ) , where  INDEX  = 
(m-1)  x (NYRS+1)  + 1 

X0mn 
(m=n 
for 
RYTPE 
code  = 3) 

4,5,6 

FX 

0.0  (meaning  that  n is  not 
preferred  by  any  Specialty 
m) 

XNn 

3, 4, 5,6 

UP 

REQ2 ( I NDEX ) , where  INDEX  = 
(m-1)  x (NYRS+1)  x (NSPEC+1) 

XNn 

3 

LO 

REQ2 ( I NDEX ) x (OFLOHI)  x 
(NYRS+2);  computed  only  if 
n is  an  AES 
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(18)  Program:  MASK.  - This  program  creates  the  row  and 

column  selection  masks  used  for  the  FMPS  LOADLIST  procedure.  The 
masks  are  used  to  select  solution  records  to  write  to  the  0DS0LUD1 
file  (which  Is  Input  to  the  LINKAGE  program).  The  row  selection 
masks  are  for  CREQ,  TREQ,  TOTAUTH,  and  UBSG  records.  The  column 
selection  masks  are  for  XNn  variables  only. 

(19)  Program:  SORTW.  - This  program  sorts  the  records 
produced  In  the  LOCOLS  subroutine  for  W arcs  (on  file  ODSAPUD04) 

In  ascending  sequence  on  the  field  composed  of  the  year,  specialty 
1,  and  specialty  2 data  values  (e.g.,  for  W01145  record,  the 
"01145"  Is  the  sort  field). 

(20)  Program:  SORTXY.  - This  program  sorts  the  records 

produced  In  the  LOCOLC,  LOCOLS  and  RES2GR  subroutines  for  X and  Y 
arcs  (on  file  ODSAPUD08)  in  ascending  sequence  on  the  field  com- 
posed of  the  arc  Identification  (e.g.,  X01145  or  Y01145). 

b.  Data  Base  Creation  Activity 

(1)  Program:  DATABASE.  - This  Is  the  "executive"  program 

In  the  data  base  creation  activity.  The  program  calls  the  sub- 
routines NEWSAV,  COMBIN,  and  RECORD,  which  create  the  necessary 
card  Images  to  be  Input  to  the  data  base  load  program  (DBGEN)  for 
both  the  current  segment  and  cumulative  data  bases. 

(2)  Program:  NEWSAV 

(a)  This  program  reads  the  0DDBSUD1  output  file  from 
the  FMPS  activity  In  groups  of  four  60  double-precision  word  records 
(the  general  format  of  these  records  Is  described  in  Chapter  2 of 
the  FMPS  programmers  reference  manual). 

(b)  The  MASKCK  subroutine  (described  in  subparagraph 

(3)  below)  Is  called  first  to  mask  out  unnecessary  row  data.  The 
NEWSAV  program  then  decodes  the  row  or  column  Information  within 
each  record  to  determine  the  identification  and  data  values  for 
each  row/column,  and  writes  a card  image  record  out  to  file  10,  to 
be  processed  by  the  COMBIN  subroutine.  The  following  data  values 
are  Included  for  each  row  or  column  name: 

1_.  activity  value 

2_.  lower  limit 
upper  limit 

4_.  dual  activity  (for  rows)  or  reduced  cost 

(for  columns) 
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(c)  The  NEWSAV  program  output  record  format  Is  as 
shown  in  Table  XI-20. 

(3)  Program:  MASKCK 

(a)  This  subroutine  was  added  when  a "bug"  in  level 
6R1C  of  FMPS  was  detected.  Selection  masks  for  the  rows  to  be 
written  to  0DDBSUD1  caused  no  row  data  to  be  written.  The  quick 
and  easy  solution  was  to  bypass  the  row  selection  masks  and  thus 
write  data  for  all  rows  to  0DDBSUD1,  and  then  have  MASKCK  screen 
out  the  unwanted  rows. 

(b)  This  subroutine  checks  all  row  records  and  by- 
passes the  normal  processing  of  the  NEWSAV  program  for  the  follow- 
ing types  of  row  records: 


(4) 


1. 

NjnGOZO 

2. 

NjnLINC 

3. 

NjnCINC 

4. 

R 

5_. 

RES 

Program : 

COMB  IN 

(field  grades  only) 


(a)  This  program  combines  the  data  generated  in  the 
matrix  generator  for  W,  X,  and  Y prefix  column  records;  row  records 
are  read  in  and  immediately  written  out  to  file  ODSAPUD07.  The 
following  types  of  column  records  are  also  read  in  and  immediately 
written  out: 


1.  X000 n 

2.  XNn 

Xjmn  (where  m=n) 
4.  Yjmn  (where  m=n) 
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TABLE  XI-20,  Output  Record  Format  for  the  NEWSAV  Program 


Print  column} 

Data  element 

Values/description 

1 

Type 

R-  for  row;  C,  for  column 

2 

Prefix 

V,  N,  T,  U when  Type  is  R 
X , Y , W when  Type  is  C 

3 

Year 

0-9  when  Prefix  is  X,  Y,  V or  N 
0 when  Prefix  is  W,  T or  U 

4-5 

Specialty  m 

01-99  (actually  OPMS  specialty  num- 
bers only)  when  Prefix  Is  X,  Y, 

W,  V,  U,  or  N 
0 when  Prefix  is  T 

6-7 

Specialty  n 

Same  as  for  Specialty  m above 

8 

Grade 

2-6  when  Prefix  is  X,  N or  T 

2- 3  when  Prefix  is  V 

3- 6  when  Prefix  Is  Y,  U or  W 

9 

Segment 

1 when  Prefix  is  V 

1-2  when  Prefix  is  X,  W,  U or  T 
1-4^/  when  Prefix  is  N 
3-4—/  when  Prefix  is  Y 

10-21 

Act i vl ty 

12  character  FMPS  solution  value 

22-23 

Lower  limit 

12  character  FMPS  solution  value 

34-45 

Upper  limit 

12  character  FMPS  solution  value 

•^The  N JCREQ  records  are  assigned  a Segment  number  3 or  4 and 
a grade  number  one  higher  than  the  current  segment.  Additionally, 
the  solution  values  for  activity  and  upper  limit  are  subtracted 

from  the  corresponding  values  for  the  N TREQ  constraint  (same 

year  and  specialty  so  that  the  TREQ  constraint  solution  values 
represent  only  requirements  for  one  grade.  The  N _ CREQ  records 
are  later  combined  with  the  N_  _TREQ  records  with  tile  same  year, 
specialty  and  grade  values  In  tRe  COMB  I N subroutine. 

b/A  Y prefix  column  record  Is  assigned  a Segment  number  3 or  4 
and  a grade  number  one  higher  than  that  of  the  current  segment. 
These  records  are  later  combined  with  X records  with  the  same  year, 
specialties  and  grade  values  in  the  COMB  I N subroutine. 
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(b)  The  remaining  types  of  column  records,  Xjmn  and 
Yjmn  (m^n  for  both),  are  written  out  with  the  matrix  generator 
information  obtained  from  file  ODSAPUD04  on  W arc  and  X arc  identi- 
fication (and  percentages  thereof)  which  feed  the  arc  identified 
by  Xjmn  or  Yjmn.  The  output  record  format  is  as  described  in 
Table  XI-21. 


Table  XI-21,  Output  Record  Format  for  the  COMBIN  Program  (continued 
on  next  page) 


Print  column 

Data  element 

Val ues/descri pti on 

1 

Type 

R,  for  row;  C,  for  column 

2 

Prefi  x 

N,  T,  U,  V,  W,  X,  Y 

3 

Year 

0-9 

4-5 

Spec  1 

01-99  (actually  OPMS  specialties 
only) 

6-7 

Spec  2 

01-99  (actually  OPMS  specialties 
only) 

8 

Grade 

2-6 

9 

Segment 

1-4 

10-21 

Acti vi ty 

12  character  FMPS  solution  value 

22-33 

Lower  Limit 

12  character  FMPS  solution  value 

34-45 

Upper  Limit 

12  character  FMPS  solution  value 

46 

MRATIO 

For  either  type  R or  type  C:  the 

left  member  of  the  utilization 
ratio  for  specialty  pair  defined 
by  Spec  1/Spec  2 

47 

NRATIO 

For  type  R:  same  as  for  MRATIO, 

above 

For  type  C:  the  right  member  of  the 

utilization  ratio  for  specialty 
pair  defined  by  Spec  1/Spec  2 

TABLE  XI-21,  Output  Record  Format  for  the  COMBIN  Program  (concluded) 


Print  column 

Data  element 

Values/description 

48 

Tour  length 
of  specialty 
m 

Years 

49 

Tour  length 
of  specialty 
n 

Years 

50-54 

Identlfl cation 
of  X source 

5-character  ID 

55-58 

Percentage  of 
X source 

A percentage  value  converted  to  a 
4-digit  Integer  by  multiplying  by 
10,000  (e.g.,  33%,  originally  ex- 
pressed as  .33,  would  be  printed 
out  as  3300) 

59-63 

Identlfl cation 
of  W source 

5-character  ID 

64-67 

Percentage  of 
W source 

Derived  in  the  same  manner  as 
Percentage  of  X source,  above 

68-72 

Identlfl cation 
of  alternate  X 
source 

5-character  ID 

73-76 

i 

Percentage  of 
alternate  X 

Derived  in  the  same  manner  as 
Percentage  of  X source,  above 

(5)  Program:  RECORD.  - This  program  creates  the  input 

records  for  the  cumulative  data  base  by  adding  the  solution  values 
for  appropriate  X and  Y arcs  with  the  same  year,  specialties  and 
grade  identifiers,  as  well  as  adding  the  solution  values  of  the 

N CREQ  and  N TREQ  rows  with  corresponding  year,  specialty 

and  grade  identifiers.  All  other  record  types  are  unaffected  by 
this  program. 

(a)  The  current  segment  data  base  input  file 
(ODSAPUD07)  is  read,  a record  at  a time.  Into  array  "A".  If  the 
record  is  not  a row  record  (N CREQ,  N TREQ,  W UBSG, 
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TOTAUTH,  or  RES  type),  or  a column  record  for  a W arc,  then 

the  first  two  characters  of  the  record  are  changed  to  "ZZ".  If  It 
is  a column  record  for  a W arc,  then  the  first  two  characters  are 
changed  to  "WW" . All  the  records  are  then  fed  to  the  SSREL  sort 
subroutine. 

(b)  The  permanent  cumulative  data  base  input  file 
(0DSAPUD18)  is  also  read,  a record  at  a time,  into  array  "A"  and 
similar  tests  and  modifications  performed.  The  records  are  also 
fed  to  the  SSREL  sort  subroutine. 

(c)  The  records  from  both  files  are  then  combined 
and  sorted.  Records  with  "WW"  are  then  changed  back  to  "CW",  and 
those  with  "ZZ"  changed  back  to  "CZ".  The  records  with  the  same 
year,  specialties,  and  grade  are  combined  to  form  a single  record, 
with  the  activity,  lower  limit  and  upper  limit  fields  being  the 
sum  of  the  corresponding  fields  in  the  two  input  records.  An 
exception  to  this  procedure  applies  for  column  records;  in  these 
Instances,  the  lower  bound  field  is  used  to  hold  the  activity 
value  for  the  Y arc  component  of  the  Prefix  "Z"  record  (Z  record 
is  composed  of  X and  Y arc  solution  values  along  with  identifying 
information) . 

(d)  The  combined  records  are  then  written  to  a 
temporary  cumulative  data  base  input  file  (ODSAPUD03)  in  card 
image  format  as  shown  in  Table  XI -22 . 


TABLE  XI -22, 

Format  of  Records  Written  to  Temporary  Cumulative  Data 
Base  Input  File  ODSAPUD03  by  the  RECORD  Program 

Input  column 

Data  element 

Values/description 

1 

Type 

R,  for  row;  C,  for  column 

2 

Prefix 

N,  T,  U,  V for  Type  R 
W,  Z for  Type  C 

3 

Year 

0-9  when  Prefix  Is  N,  V or  Z; 
0 when  Prefix  Is  T,  U or  W 

4-5 

Spec  1 

01-99  (actually  OPMS  specialties 
only)  when  Prefix  Is  N,  U,  V,  W 
or  Z 

0 when  Prefi.'  is  T 

6-7 

Spec  2 

0 when  Prefi > Is  N,  T or  U; 

01-99  (actually  OPMS  specialties 
only)  when  Prefix  Is  V,  W or  Z 

8 

Grade 

02-06 

9 

Segment 

0 

10-21 

Activity 

12-character  FMPS  solution  value 

22-33 

Lower  limit 

12-character  FMPS  solution  value 

34-45 

Upper  limit 

12-character  FMPS  solution  value 
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MRATIO 
(Utilization 
ratio  of 
Specialty  m) 

For  either  Type  R or  Type  C:  the 

left  member  of  the  utilization 
ratio  for  specialty  pair  defined 
by  Spec  1/Spec  2 
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NRATIO 
(Utilization 
ratio  of 
Specialty  n) 

For  Type  R:  same  as  for  MRATIO, 

above 

For  Type  C:  the  right  hand  member 

of  the  utilization  ratio  for  spe- 
cialty pair  defined  by  Spec  1/ 
Spec  2 
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Tour  length  Years 

of  Specialty  m 

49 

Tour  length  Years 

of  Specialty  n 

(6)  Program:  DB-CORRECT.  - This  program  updates  the 

activity  and  upper  limit  fields  of  the  XNn  arcs. 

(a)  The  RECORD  subroutine,  described  in  (4)  above, 
adds  the  NjnCREQ  activity  and  upper  limit  solution  values  for  the 
current  segment  for  specialty  n in  all  years  j (except  the  last 
year)  of  the  time  span  being  analyzed,  to  the  corresponding  solu- 
tion values  for  the  NjnTREQ  constraints  from  the  cumulative  data 
base  file  (the  NjnCREQ  and  NjnTREQ  pertain  to  the  same  grade). 

The  updating  of  the  XNn  arcs  provides  for  the  necessary  correction 
for  the  last  year  in  the  time  span. 

(b)  Since  ODSAS  employs  logical  upper  bounds  on  a 
variable  for  the  total  requirements  for  a specialty  in  the  last 
year  of  the  time  span  and  a constraint  for  the  unfilled  higher 
grade  requirements  (same  specialty  and  year),  the  corresponding 
column  and  row  data  for  these  node  capacities  must  be  extracted 
from  the  solution  values  for  the  appropriate  row  and  column 
records.  To  accomplish  this  adjustment,  the  temporary  cumulative 
data  base  file,  ODSAPUD03,  is  first  split  into  two  temporary  files 
(files  20  and  21)  via  the  ED  processor.  File  20  contains  all  the 
records  for  constraints  (rows),  and  file  21  contains  all  the 
records  for  the  variables  (columns). 

(c)  The  DB-CORRECT  program  then  reads  files  20  and 
21,  saves  the  activity  values  for  the  NjnCREQ  rows,  and  adds  these 
values  to  the  activity  value  of  the  XNn  column  records  (same  spe- 
cialty, year  and  grade).  A check  is  also  made  to  ensure  that  the 
combined  activity  value  does  not  exceed  the  original  upper  limit. 

(d)  During  the  processing,  all  the  row  and  column 
records  are  written  to  a temporary  file  (file  22).  At  the  comple- 
tion of  all  updating,  file  22  is  copied  to  ODSAPUD03--except  In 
the  processing  phase  of  the  COL  segment.  In  the  latter  case, 
since  no  NjnCREQ  records  are  produced,  no  updating  is  required  and 
thus  the  cumulative  data  base  file  (ODSAPUD03)  is  left  alone. 

(7)  Program:  DBGEN.  - This  program  reads  the  data  base 
input  file  (ODSAPUD03,  GDSAPUD18,  ODSAPUD07  or  ODCUMUD01 ) and 
stores  the  data  in  the  MIRADS-format  data  base  file,  MASfn,  where 
fn  is  either  CUMSEG  (for  cumulative  data  base  file)  or  CURSEG  (for 
current  segment  data  base  file).  An  accounting  of  the  number  of 
input  records  is  taken  and  printed  for  user  verification  of  the 
size  of  the  data  base. 

(8)  Program:  HITFI LE/ INTERFACE . - This  program  reads  the 
indices  of  the  records  selected  via  the  MIRADS  query  set  (named 
PROCUREMENT)  from  the  file  named  HITFILE.  The  indices  are  stored  in 


XI -40 


the  first  word  of  3-word  records,  140  records  to  a block.  MIRADS 
subroutines  (READS)  are  used  to  read  the  HITFILE,  extract  the 
Indices,  and  then  select  from  the  data  base  file  (MASCDMSEG)  those 
records  at  the  Index  location.  The  selected  records  (which  are  In 
the  format  described  In  the  data  base  dictionary)  are  written  out 
to  logical  unit  9,  which  can  then  be  accessed  by  user-written  pro- 
grams . 


(9)  Program : * “ T^is  Pr°9ram  reads  the  file 

of  data  base  records  (ObSAt’UDljJ)  selected  from  the  CUMSEG  data  base 
via  the  "PROCUREMENT"  query  set.  ODSAPUD10  contains  the  specialty 
pairs  from  the  MAJ  and  CPT  segment  FMPS  solutions  and  requirements 
data  from  the  LT  segment  solution.  The  program  has  three  major 
functions : 


(a)  The  first  function  Is  to  compute  the  unfilled 
requirements  for  each  specialty  by  first  computing  the  number  pro- 
moted at  T a and  the  attrition  of  promotees  and  non-promotees  from  T* 
to  Tj,  then  finding  the  difference  between  the  specialty's  (node) 
upper  limit  and  the  activity  and  adding  that  difference  to  the  total 
attrition. 


(b)  In  the  second  function,  PROCUREMENT  computes  up 
to  three  percentages  for  each  specialty  depending  on  whether  the 
specialty  Is  a BES  or  an  AES  and  If  the  pair  of  specialties  is  a 
combination  of  either  BES/BES,  AES/BES  or  AES/AES.  For  all  specialty 
pairs  (1/j),  the  percent  of  Specialty  i's  requirements  satisfied  by 
the  activity  of  the  i/j  pair  is  computed.  For  AES/BES  specialty 
pairs  (1/j),  If  the  BES  Is  not  a combat  arm,  two  additional  percent- 
ages are  computed--one  is  the  percentage  of  Specialty  i's  require- 
ments (excluding  those  satisfied  by  an  AES/AES  specialty  pair) 
satisfied  by  the  activity  of  the  i/j  pair,  and  the  second  percentage 
Is  of  Specialty  I's  requirements  when  the  activity  of  those  pairs 
where  the  BES  is  a combat  arm  Is  also  excluded.  For  AES/BES  specialty 
pairs  (1/j),  where  the  BES  is  a combat  arm,  only  the  former  percent- 
age Is  computed. 

(c)  The  third  function  produces  the  ODSAS  Procurement 
Report  in  two  parts.  Part  1 details  the  procurement  requirements 
for  each  BES,  to  Include  the  AES  requirements  prorated  to  each  BES 
based  upon  one  of  the  percentages  computed  above  (i.e.,  the  percent- 
age of  Specialty  i's  requirements  when  only  the  AES/AES  pairs  are 
excluded).  Part  2 is  similar  to  Part  1,  except  that  the  percentage 
used  is  one  wherein  the  AES/AES  pairs  and  the  pairs  with  combat 
arms  are  excluded.  A third  part  (OPTION  1),  a modified  version  of 
Part  2,  may  be  produced  at  the  user's  option  (see  Chapter  V). 
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c.  On-Line  Inquiry  Activity.  - This  activity  contains  a 
single  program— the  UPDATE  Program.  UPDATE  can  be  used  to  update 
(change)  data  values  in  either  the  master  requirements  file 
(ODSACUD01)  or  the  attrition  and  promotion  rates  file  (ODPOPUD01), 
or  both.  Parameter  cards  are  required,  to  define  which  files  are 
to  be  updated  and  which  data  type  and  values  are  to  be  changed. 
Input  card  requirements  and  formats  are  described  fully  in  Para- 
graph 3a,  Chapter  IV. 

d.  Segment  Linkage  Activity.  - This  activity  contains  a 
single  program— the  LINKAGE  Program— which  has  two  major  functions, 
described  in  Subparagraphs  (1)  and  (2)  below,  respectively. 

(1)  The  first  function  is  to  read  the  solution  file 
(0DS0LUD1)  created  in  the  FMPS-MODULE  and  compute  the  unfilled  ' 
requirements  to  be  filled  in  the  next  grade  segment. 

(a)  0DS0LUD1  is  composed  of  records  (each  containing 
60  double-precision  words)  for  the  node  capacity  constraints 
(NjnTREQ  and  NjnCREQ),  and  the  X000n  (for  Grade  2 only)  and  XNn 
arcs.  For  each  such  constraint/arc  the  following  information  is 
included  in  the  file: 


1. 

Name  of  row/column 

2. 

Activity  code 

3. 

Acti vi ty 

4. 

Lower  limit 

5. 

Upper  limit 

(b)  The  internal  subroutine,  MODIFY,  computes  the 
unfilled  requirements,  depending  upon  segmentation  options  and 
the  degree  of  satisfying  the  force  structure  requirements. 

(c)  The  program  then  tests  12  sets  of  conditions 
and  takes  the  updating  actions  shown  in  Table  XI -23.  Definitions 
of  the  terms  used  in  Table  X I -23  are  as  follows: 

Term 

Defini tion 

Segmentation 

option 

0 - no  segmentation  within  grade 

1 - Segment  1 within  a grade 

2 - Segment  2 within  a grade 

Constraint/Variable  type 


ACTIVY 

CRQACT 

ITREQ(YR 

OFLOLO 

REQONE 

REQTOT 

REQTWO 

TOTREQ 

ULIMIT 
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TREQ  - network  capacity  constraint 
for  total  requirements 

CREQ  - network  capacity  constraint 
for  portion  of  total  requirements 
pertaining  to  unfilled  higher 
grades 

Solution  value  for  variable  or 
b-coefflclent 

ACTIVY  value  for  a CREQ  constraint 
(only  used  In  Segment  1,  since 
the  ACTIVY  value  for  CREQ  Is 
Included  in  the  ACTIVY  value  for 
TREQ;  thus  CRQACT  Is  added  back 
to  determine  proper  adjustment 
when  operating  on  a TREQ  record) 

GRD.SP)  Internal  requirements  array 

Indexed  by  year,  grade  and 
special ty 

Overflow  percentage,  which  modifies 
requirements  by  allowing  more  than 
actual  requirements  for  the  grade 
being  processed 

Requirements  for  next  higher  grade 
(unadjusted) 

Sum  of  REQONE  and  REQTWO 

Requirements  for  next  higher  grade 
(unadjusted) 

ULIMIT  minus  ACTIVY  (total  require- 
ments less  the  solution  value  for 
the  variable  or  b-coefflclent) 

Upper  limit  specified  on  input 

Attrition  = (ACTIVY  x attrition 
rate) 


TABLE  XI -23,  Updating  Actions  Taken  by  the  LINKAGE  Program 


(2)  The  second  function  of  the  LINKAGE  program  Is  to  create 
the  Input  parameters  file  (ODI NPUD01 ) for  the  next  system  segment. 

(a)  In  the  first  step  in  the  process  the  last  number 
on  the  first  card  image  is  changed  to  the  grade  number  to  be  run. 
Then,  the  4th  through  the  7th  card  Images  are  replaced  with  the 
attrition/promotion  rates  from  the  ODPOPUD01  file  for  the  appropri- 
ate grade  (card  images  2 and  3 are  unchanged). 

(b)  The  segmentation  Instructions  for  the  grade  seg- 
ment just  completed  are  then  deleted  and  the  segmentation  instruc- 
tions for  the  remaining  field  grade  segments  (If  any)  are  moved  up. 
When  creating  the  input  parameter  file  for  the  CPT  and  LT  segments, 
the  eighth  card  Image  contains  20  AES  numbers,  followed  by  the  value 
of  the  variable  ICHG  and  the  number  of  AES.  A ninth  card  Image  con- 
tains the  rates  used  for  alternate  specialty  designation  In  each 
segment. 


(c)  During  processing,  the  new  input  parameter  file 
is  written  to  a temporary  file  (file  11.);  at  completion  of  the 
program  execution,  file  11.  is  copied  to  ODINPUD01. 

e.  Separating  Active  and  Inactive  Records  in  the  Cumulative 
Data  Base.  - This  is  a special  function  which  serves  as  an  adjunct 
of  the  data  base  creation  activity.  The  function  is  contained  in 
the  SEPARATE  program,  which  separates  the  records  that  can  no  longer 
be  updated  from  the  remaining  records  In  the  current  cumulative  data 
base  file,  0DSAPUD18. 

(1)  The  grade  identification  is  read  from  the  element 
SEGMENT  in  TPF $ (which  was  previously  loaded  In  the  catalogued  run- 
stream).  File  0DSAPUD18  is  then  read  and,  based  on  the  initially 
read  grade  identification,  any  record  whose  grade  field  data  value 
exceeds  the  grade  identification  plus  1,  Is  written  to  temporary 
file  17;  all  others  are  written  to  temporary  file  16. 

(2)  At  the  conclusion  of  the  program,  file  17  is  placed  at 
the  the  end  of  ODCUMUD01 , and  file  16  is  copied  into  0DSAPUD18.  For 
example,  if  the  grade  identification  were  "4",  then  Grade  6 records 
would  be  placed  on  ODCUMUD01 , since  the  processing  phases  for  MAJ 
and  below  would  not  produce  records  that  could  update  any  Grade  6 
records . 

(3)  The  SEPARATE  program  is  portrayed  graphically  in 
Chapter  III  (Figure  1 1 1 -23) . 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 


CHAPTER  XII 
PROGRAM  LISTINGS 

1.  Purpose . - The  purpose  of  this  chapter  is  to  provide  listings 

of  all  the  source  programs  written  for  ODSAS.  Since  the  FMPS  and 
MIRADS  are  proprietary  programs,  their  source  listings  are  not 
available.  The  source  program  listings  are  arranged  in  alphabetical 
order,  by  activity  within  phase  (Initialization  and  processing). 

Each  program  listing  has  pertinent  program  documentation  In  a header 
block  at  the  beginning  of  the  listing  and  comment  cards  throughout 
the  listing. 

2.  Index  of  Source  Program  Listings 
a.  Initialization  Phase 

Activity  Program  Page 


(compute  attrition/  INITIAL  XII-3 

promotion  rates 
and  create  input 
parameters  file) 

(create  positional  SACSCREATE  XI I -17 

requirements  file)  SACSEXTRACT  XI I -23 

SACSPREPRO  XI I -25 

(create  preference  TOURATIOS  XI 1-28 

f ■ 1 1 es  ) 

b.  Processing  Phase 

Activity  Program  Page 


Matrix  Generator  BLOCK  DATA  XI I -32 

BOUNDS  XI 1-33 

CPDIAG  XII -35 

HICOL  XII -39 

HICOLS  XI 1-40 

IBITS  XII -45 

INPUT  XI I -46 

I PHASE  XII -51 

IPROB  XI I -52 

XII-1 


PRECEDI  :0  PAGE  3LaNK-X0T  FILMED 


Activity 


Program 


Matrix  Generator  (cont)  JPHASE 

KEYARC 
« LOCOL 
LOCOLC 
LOCOLL 
LOCOLS 
LODIAG 
MAIN 
MASK 
OPT 
PROC 
RANGE 
RESHI 
RESLO 
RES2GR 
RHS 

ROWCHP 

ROWOP 

SORTW 

SORTXY 

VALID 

Data  Base  Creation  COMBIN 

DATABASE 

OB-CORRECT 

DBGEN 

HITF I LE/ INTERFACE 

MASKCK 

NEWSAV 

PROCUREMENT 

RECORD 

On-Line  Inquiry  UPDATE 

Segment  Linkage  KTREQ 

LINKAGE 


Separating  Active  and  SEPARATE 
Inactive  Records  in  the 
Cumulative  Data  Base 


Pa9e 

XI I -53 
XI I -54 
XI 1-55 
XI 1-57 
XI I -61 
XI I -63 
XI I -68 
XI 1-73 
XII -74 
XI I -75 
XII -76 
XII -77 
XII -79 
XI I -85 
XII -88 
XI I -92 
XII -95 
XI I -97 
XI I -99 
XI I -100 
XI I -101 

XI I -102 
XI I - 104 
XI  I- 205 
XI 1-106 
XI I -107 
XI 1-108 
XI 1-109 
XI I -1 12 
XII -1 18 

XI 1-120 

XI I -It J 
XI I -124 

XI 1-132 


COMMON  15PE 

DIMENSION  Pop! 6 • 3 2 » iRSftPHlfc.ljl |R»TE < 7 t 3 I > i ATTH1 16,9) , A 
IPNMTI»l*lt«uTHMXl6),N8MOPWIt.ll I.»0N«1(32I.CpT(15I 


2 i * ORK  2 I J 2 I . CP  T R E M 1 iVAU'3 

3PmTcpT115I,PMTIlT(1S),aTrcpti  | 5 I , PoP^L A l 1 , R 1 , 1 R A1 E I 7 , 3 I I > »ORK J I 12 ) 


INTtatN  SEGCOL. 

EQUIVALENCE  IRaTEII.II.IRATEII.1II 


REAL  LTR8A12.3U)  I L TRB wO *2  *301 
DATA  SARRAT/lbO  • 1.0/ 


ATA  I3PEC  / 1 1 , J2I  13.  Mi  l Ti  » 2 1 .2p.2°i2'.28.31  i3s.j6.37.mi  . R 2 > A 3 . M A . 
lMS.MHM7,‘18.RS,Sl»S2l53i!iH|7l,r2.73»7l<,7Sl7t,77,81,82.83lBti87 , 8 8 

2»li92l?3.»5.97i0t)i00t0uid0,00/ 


2 ' I PoPULAT  l On«RATE  */PH0m)'1 

1 15  ^5TmTT  I MO  . F i 0 . 2 , > - ' , F I 0 . 2 , • « • , F 1 1 . Z I " " ~ 

itu  FJWw»T  | 1H|  ,3QX, '••••ATTRITION  W A T e ^ for  (.RAPE  O-’.ll. 

I*  UPON  PROMOTION  T0~O-'T|l,/'/|M01l2XiM0S,i‘t*l,Cl-*!ll!l»i 

2'PRQmQTEU  Before  T-»  , I I ■*<«  1 »NE»-PHQMOTEtSl  |H»  t *TOT«t  PROM*, MX. 

3'AtTR.  PATE  FOR  &RADE-*  . I I ,MX  , * AtTrITION*  I 

tSa  FORMAT  t I M » , SOX  I ' ••••OF F ICERS  6R*WE-'  > I I i ' AT  T- •, | I ,••••••/ I Ho ■ 

IZZX  . »ST*Rt  1 .6'  ,RRx,TPRo><OTio-~sr.  1 3x  . ' PB  PUL  * T | ON » ,Sx,  UTTHItIBN.  ,/ 

2 I 3X  . • TOS  • ,4.x  , >POPULAT  |0N>  , 3,  , . RaTL  »/0  > ROM*  ,Mx  , .RaTE  R7PR0H.|3x, 

i*  i Popoi  >t  1 o.jaraH  liTF F e w E ij c eT*"i~1  x .~9  E . 4 X . 1 H gHJIPC*  ) — ~ 

1*0  format  mho, 'total  populat i on >, 3x ,f i *. I ■ 2tx ,< total  promotions1  , 

i?l  J. 2.  jx  , "Totals' .jx  ,fv.2  isx  ,f*«2/  imu,  lix  ATtun  ion  RaTL  In  6rade 

2 ' .F9«2.  '/•  ,F?.2> ' ■ • .f  7.N/1HU,  | Jx  . ’PROMOTION  RATE  •itXiFU.Z. 

P7F-.FIS.I.V  -.-r;  F7 .4  I — - ■ 

|7d  FORMAT  IM0,IIX,l2,'-',l2,9X,Fl2.l,HX,F9.2,6*.F9.2,12X,F7.t.lU. 

I F 9 ; 2 i “ ■ 

|8p  format  IMP, I2X,1 TOTALS'. 5x,f|2.|,|2X,F9.2.*x.fE. 2. 3QX.F9.? | 

1 *0  FOR'.aT  ( l H 0 . • AT  T«  I T 10N~m  • , 1 6X  , • ( ' • F | o #2  , • ♦ ' , F | C . 2 • • I ' • ' / ' ( • , 

1 F 1 U • 2 • ' ♦ • ,F 10.2  i • I • , • * • ,F 1 0.2 , • |F 10. 2 , • .'.F7.M./IX. 

Z'FOR  CRT  ANO  MAJ  a|TH  T»0  SPE C I AL T 1 1 S • | " 

200  FORMAT  IlMb.'NQ.  OF  *ES  EXCEEDED  2p----F|RST  20  AES  ACCEPTE 0 • / | i 

2 10  FORMAt  ( I MO , 1 OX . 'SUBTOTALS  iTTl  2,  1 > 2 I X , F 1 1 • 2 * 

_2_2U FORMAT  ( IhO, 'CAPTAINS  RENAMING  T-'.Ilt'  THRU  ■ ' |F  1 2. 1 . 

I ' / • ,F  I 2 .1  , * .* , F 12.6)  

2JQ  Format  (l.tQ, 'ATTRITION  RATE  |H  GRADE  3 FOR  THOSE  PITH  ONE  SPEC|ALT  I 

IT  • • , F | 2 . I , < / • , 7 I 2 . I , > ■ • , F I 2 • 5 I j 

2RQ  format  i i mo  , 3x  i 1 Total  population  » .f  i 2.  i . rx  , 1 Total  attrition1  ,2x. 

i~F  I 3.2  • I 5x7*  total  ATTRITION. ,2X.F|3.2l  ' — " I 

250  FOR~aT  I Ml  , JOX  ■ '•••CaPTa  Ins  mITh  tro  specialties  at  t-' . I 1 , '•••>/ 
rn^X.*RA'tE  /PRO*  • . I 3x  , ' A T trI  t I ON  • , 1 I X , .rJTE  »70  prom'12*. 

2 • AT  TR  I T |0»l' / IHO.  I 2X  , ' YUS'  .7  X , 'POP/2  SPEC  • . Sx  , ' I GRAPE  31'iAX, 

TVSVTl  ~S  ME  t • ff  A't  E B /MB  JM  I ' , l X , M 5RT3C  J I I , 5X  ,~»'7  PUP/ ? 5PECXRAH  W/D 

M PROP,  I * I 

2AU  format  i ImO ,3ox  , '**a*caPTa  ins' P^OMoTlb  to  Hi jOW  AT  f.T , I I , I I// 

I 6 3 X . 1 R A t E m/PROm'.IZX.1 Attrition* /1H  . I 2 X . * T 0 S ' i I 0 X . * PR OM  TO  Mlj", 

26X.’M«J  RlhnG'  ,5»  , 1 T0T7  RTIJ*  ,£*  , < r&TTAOE  r I « , 5X  . M POPul  A rvo  i.B  A f E » 

3/PROM  I ' I 

T7T  Fur*At  I l-*0  ■ I I X . U . i 2 . tx  ,F~n.2.SX;rro.2.^'.T  I0.2.IX  .~F  lu.;,6,  , 

I F I 0. 2 1 

format  1 lMO,|oTrrrimL5'lox,F|0.-2'T6T'.TI!J7r.iX'in0.i,i»X,7  10.T1 ' 

2 P U FORMAT  II  Ml  ,50x . * ••••of F I CERS  6RAUE*,.II|'  »T  T - • , | | ,'•••••/ | Mo  I 6 I 

I X . * A T tR  I f I ON  ' / l M itaJx, 'PROMOTIONS*  |/I3l, 1 TOs'  iix.. PoPuU'*  tloH1  , MX.  ~ 
2'RATE  »/P«OM  • , MX  . * I POPULA  T 1 ONA>>  A T£  »/PROM  I • , MX  1 'R  AT  E m/0  PHO“',RX, 
3*IR0PULaT|0..RaTE  OlfFtRENCEl*!  " 

JOJ  FORMAT  llMa.llnl2.*-*,[2.Sx,Fl2.1,f>X|F7.R.|3XiF9.2.|3X|F7.M,ISX, 

I F | 2.  | I — 

3 I 0 Format  I I MU . I Oa .' total  Pop  • ,f  I 2.  1 . 9x  , I TOTAL  ATTR  • .81  , f». 2 . 1 Rl  . 

1 * TOT  AL  P R 0 m > .IIX.FI2.il  ' 

320  FUMHA  T I 1 MQ  , ■ .«  .nOmufR  qF  aq.  anCEO  E '*  T P ' specialties  *.13. 

*1  E x C E E J FILE  S P 1 C E - 'Hit  20  „ £ K £ XfiEPTlD*  I " 

325  format  I MO,  ••••’•UMBER  OF  ADVA'.CEU  ENTrt  SPECIALTIES  |nFO|  ., 

• * OOE  S t.or  AORE’E~BTT^  X.^IAmoT  NPRAfTE) 

jJu  format  1 1,10.  'attrition  Rate  in  grape  • , i x , 1 1 . < • • .fr  .2 . 1 a . • / • ,£9,2 , 

f 1 X » ' ■ ' r r I 2 , M I ••  ' ~ 

3 R 0 FUR'TAT  I Ml  ,53>  .'••••LiCuIENanTS  »t  t - * , I I . • • • • • • / 1 1 2X  • A T r R I T I on  ' / 

IlM  . 5x  , ' V.,5  I . >x  ■ 'POPULATI  ir:s»  .1  i V . IRE  <E  TI/PROP'.  B»  . 'BA  I E ~«7U  PHOR» 

2 . N X ( • P R JMOT  I OnS  * . 5x  , * P R O'lOT  I OnS  • I a , * I I POP  • pRmT  I'RATE  p2o  prom). 


l3x.F7.HiHx,F7,2>aXiF7.2iH<,F7.2i2X,F7.2,ix,r7*2! 


3F».2,|X,*l',l«,'*T , IX.F8.MI 

ito  fubhaT  mhq  ,hi»  i 1 «»»»ch*tmns  population  at  t-  1 .1 1 , • ho. 731, 


1 ' H A TE  "/o  PHQM'i 

2IU.‘CPT  REhaInIHQ' .7X, ’TOT.  cPT’ .gX . ■ I GBAOE  3 I • , » » . • I T 0 T . CPT 


. 1*7 ,F7.2, l JX,F7.2.tX,F*,M,  | 7*. 

IF7.2I 

HOJ  Fqh-at  I I HO  , 2>  , ' T[jT«l  51*  I OxjFT.  2 i l * X • F 7 , 2 1 1 3 1 i 7 7 . 2 * I * X i 


IF  I nSPEC  < 47  • D • AND.NSPIC  • LE  >60  > 00  TO  H 7 0 


"HITE  ( 6 t dO  I NSPKC 
STOP 


M'O 

IF  iNYkS.iit.OtAMt.NTRs.  LT*TI  00  TO  H BU 
"HITE  1 » i »0 1 N T H 5 

c 

Stop  ■ — " 

head  ih  ha».  nukbeh  of  officers  bt  oh»oe 

*Tff(5 

c 

HEAlT  1 i 1 20  1 auTPmx 

HEAD  I'.  NO.  OF  StOMFNT-l  SPECIALTIES 

c 

HEAD  I'*  Seoment-1  sPtci»Lnfc$ 

HEAD  1 5 i 2U  1 NPHO  , ( SPELL T 1 K 1 ,F"|  ,NpHO | 

c 

c 

CHECK  FOH  iNVIALlO  SPECIAl'T 

c 

CALL  V»L  I 0 iSPELl-T.NPRPl 

C HE*0  NUHStp  0^  A nU  10l,(T17Y_OF  ADVANCED  EnTK?  SPt  C I 4Lt  | fc$ 

HEAD  I 5 . 20  I N»RAES,IAEbU|,K*l,NBNAtS| 

I T I ’‘BRAES  . OT  • *3  1 ‘k.ijUIHURAtS 

|FlAtSI>mRAESl.EO«UI"HlTt U i 325  I 


XI 1-5 


=TJTT 


CONTINJE 

.••keao  [i,  segmentation  instruct  ions  and  values*** 

t»  t At)  <5(20  I T&K»DE.5E6C0L.LGRADE»SE<<LtC|MSI»A»t<$E6N»J 
CALl  i<EAOx0  l6iS*NRAT,UPt)M0,NPR0iSPEC:LT|SE6C0L|NSPECl 

(^(bjRBir.UPijr.o.NPSO.SPECLt.SLSLtc^SPECl 


CALL  PEAURg  ... 

Call  REaURS  IMiSARRA'SUPaNOiNPROiSPECLTiSEUMAJiNSPEC1 


»E<j1n  LOOP  FOR  TtAKLT  rails 
UC  S3D  TT  a R • I I R 
* w I T E I e> , 1 3 _)  I J.L  


If  I |NUE«.GT»CNDTOS)  1N3EX»1 


C 

~ SUM  >UPUtTTimr»*0  ATTRITION 

POPUL* 1 1 i l 1 aPOPUL* | 1 i 1 1 »POP | • ,H | 

\ 

C 

BrT7rTxM^.'ii.,j m i L}  Bi’i  M.ii riiiHMI 

P0P(6«K  »*f,OP44*K  l-RawPRJ^!  INDEX  J •Popl 5|K  | 
IF  1 K • Nt  • 1 CnT  1 (|0  to  520 

c 

• JO  l*ST  2 TEARS  TOGtTHtR  To  fil-T  Jo  *ND  OVtR  LATEqoRt 
KK«K*1 

POP|A«KK|aPoP|tlKKI«PoHt,R| 

POP|*»R|aUtO 

mm 

icwraiUr-i 

continue 

C 

RRiTE  SUMMARY  L I N t or  ATTRITION  rTtT 
»TTlO>  * |TE»KI aPOfUL All  1* 1 r POPuL A 1 l > 1 • 

WRITE  ‘6.10C1)  P 0™UL  * 1 111)  iPOPULA ( 1 |2  ) 

WRITE  15.1051  PO^JLAI  1 ,2)  ,P0PULA(  1 1 .ATTL0I4.TEAR) 

*rrHi(*,rtmimtrfLoit,rttn) 
PKmT  l * i TEAR  |ag,U 

c 

c 

zero  out  fop  computation  purposed 

— 1 

POPuL* 1 1 1 1 1 ■□•0 

POPuL*! 1 lillDiO  1 

53U 

L ■ L ♦ 1 
CONTINUE 

; 

c 

c 

rate  computation  Fop  grades  s Thru  h 

1 

l 

DO  *hO  JaStRfl 

“i 

1 GR • J4 I 

l»0  , 

C 

c 

S»»E  POPULATION  array  for  COMPUTATION  or  ATThI  and  prht 

DO  5M0  «■ 1 , j2 

RORKI IMaPOPl J,Ml  j 

5*0 

continue 

BGNyOS*RORK  1 1 31  1 

— 1 
% 

ENDT05«*0RK 1 1 32  » j 

ICnT«EnDTOS 

JCMTat'OTOS 

DO  bSO  Ra 1 i 32  * 

5*0 

POP| J|MI«diU 
CONT 1 NUE 

• 

C 

C 

BEGIN  COOP  FOR  YEARLY  RATES 

c 

• 

JO  A 2 u Y £ 4Ra  1 1 R 

c 

yU|tE  14.1501  J(L 

COMPUTE  AND  WRITE  OETaIE  LINES 

DO  JJ«RciNYO5iLNDT05 “ — 

LL«jj4l 

^ N ■ J J *L 

NH»NN-I 

c 

if  i lc*gt •enotos i ll»i 
•••population  sum 

1 

c 

POPuL*I  1 ll  1 aPoPoLA ( | | | I •*ORK  | iuji 
••••PROMOTIONS  RT  year  OF  SERVICE 

r 


”5  sir 


»ORK2ljj)*lR8»PRlj,LL)-R8kOPR(J,LLI)«N0RKI<JJI 

•••••PRflMOT I ON  SUM 

P0PuLAIl«JlaP0PULA(li3)*N0RlC2<pJl 

•a  iiipQp  (JlAT  ] On  SUM 

PpPUUU  t iRIaPOPULO  1 1 ««tl*WQRmlJji 

••  ATTtfl  t I O'.  fN  GRaoE 

YALUEa„oRKl(JJ)»R0aOPR(JtLL) 

— WoUk'31  JJI.VaLUe 

••••ATTRITION  SUM 
' ‘PoPuOn  I I 2 I .^OPUtTi  1 1 ,2  | -l/ALut 
Ip  I NN.  ST  . EnDYOS  I GO  To  560 
" WrTTE  1 6 n F6T  nm  iWi  W 0 S K 1 I Jj  I 
l M 0 R K 1 (JJ)  iVALUt 

Lo'ltlNuE 


R0MUPR  ( J.LU  l .HSTiPR  IJaXI  i»tr«KJTUJI  7 


tig  s'/b  < *8  3 n y 0 s , t nD90  s 
1nBEX»K-L 

Tf  TTTfUTH  •~5T*E nB’TTJTI  InDEx ■ I 
C AOJUST  POPULATIONS  for  attrition  and  promotion 

Ip  IK.LT-  I C . T I GO  to  570 

T ToirnST  l yTTr5''T0— BTT-  EnTTyUS  A No  o^n?  UTEWJWy 
Xk«X- 1 

«oRk  1 1 k k i ■»oRk  1 1 Kk I -Work  1 j < i 

■ 0 H K I I X I ■ 0 • 0 

ITNTSTrvr^T - - 

Go  TO  580 

57o  Continue 

580  ATTLO(u,YEARl*POPULA(|,2l/POPUUAll,R| 

prmtij,yt:ai<)»populaii,3i/popul*ii,ii 
c krite  attrition  and  promotion  nates 

»Rirr  is'. rrsmoT'uu'AT  i , rr  .popw-ai  i .^r.pmmrr.Ri  .retain  1 ,71 , — 

|P0PULA(ii2l,P0PULA(l(RltATTL0IO.»tARItP0PULAII|3ltP0PUL»ll«ll« 
JPrmT ( J , yEoR I 

c ••••attmI  computations  por  graues  5 ano  r 
write  uiHgi  j,  igr,  igr.l, igr 

TjT  A T R a 0 • 0 

»E5u«»ij;g  — . --  --  

PoPSUM.N.O 

T LOMPuit  “NO  » R t T t OEI STL  lines 

TT0-  Too*  j3TBGVmTEND»0S 
El* J J»l 
N-,*  JO-L 
12,  * , 8 f 2 • 1 

Ip  (LL.f,T.r-iOY(jSl  LL*I 
S 1W.PQP  i J^Jj  I -.oRp  2_l  J J I 

' V aloI  • s’u  IT  • R 8 *’5p  R n G R I L L I 

lp  | NN . GT  , E NCTOS  1 GO  TO  590  _ _ 

*h  i ft  i 6 • 1 To  V nm  Inn  (Pop  1 j , jj 1 ,-uhn2(  jJT.Sum.OSwoPiTi  igr  >ll  i , value 

590  PfjP5UM»P0PSuM-SUM 

ReSjM-RESJm.POpi J,LLI 
ToT“TR*TOTATRtvALuE 

r mPTT,  JTf  • 5 L"P"-' v A L u E 


XI 1-8 


save  The  first  20  AE9»S 


0 650  K • i » 20 
1HATE1  I »K)**E9IK > 


00  660  M-|» 

W0R< | t H ) »POP I j,m) 


CONTI 
BiiNVUS*  wOR*  | I 3 1 ) 


ENUY05«*0Rk I I 32  I 

I cut  ■E’vdyos 


jCNT«tN0YOS 

COMPUTE  WHEN  LAST  caPTaJnS  WOULD  EXCEED  8 TOS 


ICHG«““8fiNY05 
WHITE  tbiHjQ)  |CHu 


I HATE • I • Jll wICH 
1 HATE  I 1 i 30  I wNBHAEs 


J t N0«O 

BE 5 1 N LOOP  FOR  YEARLY  RATES 


R.5U4TL«0*0 


PSuBTl* J.O 


T0TpR0«0.0 

PQPhA  J»0«0 

"HITE  <*,2»0I  JiL 
COMPUTE  DETAIL  Ll*ES 


DO  670  J J*BiN T OS i ENOTOS 
LL»JJ«L 


NN* JJ»L 

ir  ilu.st.endvos)  ll»i 


«tllU  >PWOR*  I I JJ»  pRBtiPR  I J,LL  I 
»»L  I ILL  I ■WORK I I JJ )*R8mOPRIJ,LL) 


UO  TO  7 1 u 


UNITE  IBiJOul  NM,NN.«0HA|U),Ha..P»<|j,LLI,V*LCLLI,R8«0PN|J*LLIi 
I PNOM* J I A I 
CO  NT [NoE 


CPtNIMI rE*N»l |pPSUBTL/TOT*l 
ATTlO* Ji7EANlPhSOBTL7PSOBTL 
~ «nT7e  5 u H mThT  tl^iS  *NC  mates 

"HITE  16,310)  roTPuP  ,T07»TB  .PoPMAJ 


IF  IL*En»OI  «R|Tt  I6.NMUI  P 5 OS  T L , I I 9 | , T OTPOF  , CP  TIEmT Te  a R I 

«HlTt  16,23)1  L • ’E  AR  ,PSUBTL  ,To7 ‘L  <CPTREl*l  VEArn|I 


«N  I TE  <6,2301  N5U8TL,PSUBTu,ATT 

save  CP  them  value  IN  mate  jurat 


i — 

* cp  t pop  *o • o 

; t>TifR»ff.O — — — 

CPTtRNPQ.Q 

WRITE  l*(2*0l  L _ ' " ■ - ~ 

. e computations  for  cpts  »/2  specialties  and  detail  lines 

00  720  KpB.eNDTOS  ■ ■ 

, LL»nwL 

NN»k*L  " " - ~ ■ — 

I NM«NN* 1 

1 f ILL«fcT»ENDr05l  LL»I  ' ■ 

• CPTp»PpcPTPuP«poH|(  I I K ) 

CPT»1HPCPT»TP*V»LILL)  “ — ~ 

cptrrnwcptarn«vali  uu I 

IF  INN.sT*ENDTOSl  60  TO  720 

’ WHITE  16.1201  NHinN.WQRM  Ik)  ,R8mPR| J . LL 1 .VALILLI  |R8WpPRI J,ILI  I 

lv»u  ILU 

72u  CONTINUE  

WRITE  I6|2M0)  cPTPOP.CPUTh  .CPTARN  ' 

c «■«».  ATTHI  COMPUTATIONS  row  gRADL  3 

tat«m«o.o  _ ' ~ 

T0TreW»Q«0 

tPR0H"U«ti  

P0PMAJ«0*0 

WHITE  I 6 1 24u  I L ' ' ‘ 

c compute  and  write  detail  lines 

DIT13P  JJgrsTTfB5IENBT08 

LL»JJ*L 

NNW j jAl  - ' 

NM«nn*1 

ir-iLl.'i4trENHVo§l  LL*  [ 

IF  (Jj  .lt.  ei  fiO  TO  72S 

Tt)WOM*TPHUM«>PQM*JI  JJI  - 

72! i TOTpnOpTOTpuOAPROmAjI jjI 

TdTREH,t<Jt*»EH*RiHM»j(jj) 

NQHK2IJJ|pPR0HAJ*JJI*HEMHAJ|JJ| 

4 + RMAJIjJI*wO»Ali!ljJI»R8iJpR(taRiLLl  " ' 

TaTrrptaTRMwAtrm* Jt JJI 

^maJ*P5PHaJ*pBRKJI  JJI 

I F { NN» QTiEwOTOS I ao  TO  7J0 

WRITE  < 6 . 2 7 0 I NMlNNiPROMAJIJjliREMNAJIJJI  iWORFUJJ  ItRBwPMlISFltELI. 
IATMmAJI JJI 

7*0  CONTINUE  ~ 

PROP | F ■ P OPHftJ*tFRUM 

WRITE  1 4 i 28u  i ToTPROiToTwEMiPOpMAUiTAtRii 
C adjust  major  POPULATION  FOR  ATTRITION 

D n TwS  K wHONTOS I LndtOS 
1N0EX«A*L 

\r  ! i kidck . QFrr'NDTos i ilpee.i  - 

HLMw»JIK|»»oRic2|8|.w0Rk2|KI«R8«PRIISRiIndL*) 

WOEn  jlH»wbRl?jtirT«IFCHH«J|  lEbe«l*PHbHrj|  rWDEK  1-nHHTJi  INCH  I 

IF  |r*LT«JCnT)  gO  TO  780 

c ADO  l * 3 T i tKaIiS  tooETHtR  td  fiCT  EnOTHS  AND'oVnT  TaTeHTJPT 

XKWR.l 

niM'.jUk  iwREHMEJin<rmMmjiki 

rehwajuiwq.q 


xn-H 


10  . 


LL*jj*l 
NN» J J‘l 


NM»NN* l 

PHTCPT  I JJ  I ■»ORn  I I Jj  I • ILTRb.ri2.LL  I -lTRBhoi  2 (Ll  I t 


PHTlLTlJJ>a«OllK2<JJI*IL>R8«l|,LL)-LT,R>MO(iiLLli 
•1*0PnII  Jjl-PMTCPT  I JJ)  )«LTR8»0I2,LL> 


VAL2lT«R0MR2IJJI*LTRBJ0UtLLl 
T ATM! «T ATM  I *v *l2l  T 


TATM2*TATR2»valI'-T 

ATRT0T»VALlLT*yAL2LT 


TPRhTJ*TPMMT)*PHTcPTIJJI 


POP|lT«POPIlT«wO»M  I JJ) 


POP2LT»POP2lT*»OP*2IJJ) 

■ HITE  I A i )Sn I NMiNN,ROR*1<jJIi"0RK2IjJI|LTR8pI2iLL)ilTHB*(|.IL|| 


CONTI NJE 

■M|T£  SUMhAMT  LInIS 


■M  I T E U.JAOl  PUPlLT,PoP2LTiTpRHTT,TP)»MTfiTATI«rtTATRliTOTATR 
*TTlOI^iTEAh).toTATH/(POP)lT*POP2LTI 


ILTH8«0UiLl  I .LTR»«0ir.Ll-I.PMTC>,TlJjl*t,MtlLT(jJliVALlLT.V»L2LT( 

2ATMTQT  


OU  8)0  JJ*BSNTOb iENUTUS 


•<N  - I 

TOTPRO«tOTPqO*pHTCPUjJ) 


' w . 'fc  > NA  w 

CPT|jJ)»PMTcPT|JJI*CPTMEM(JJI 


TaThj*TaTR).ATRCPT 1 JJI 

C M t PnP ■ cPtP o R AC^Ti JTI 
IT  1 N N • (a  T • 8 1 4L  To  8 20 

a i J 

total«Total*cpt iTjI 

■ HITE  N"  (NN.PhTCPT  | jj  ) ,CPT|)EH  1 Jj  1 .CRT  1 JJ  1 ,Nfl*OPR  1 ) 

1 

CUN  J I NUE 

■ RITE  I 4 i ROD  I ToTPRn.ToTRtM.C 


I nde»*k*L 

l PTREMjR  |»CPT | » )« I | . - A 18 * QPH|) , INQLA I I 


1 


CPT(Kl*CPtlKl*CFTHEMKI*PMTCPTUl-a1RCP1IM 

pro 

CONTINUE 

CPTK«i*TOTAL/CPT^OP 

c 

HTThI l2,YE4RI.Ta'R3/CPTP0P  j 

Save  CaPTaiw  remaining  < aLUE  in  r a t t aRRar 

RATf  1 7 , T E a R 1 *CPTH|1 

WRITE  16,910)  TOTaL.CPTPOP,CPTRM 

WHITE  16.9201  TaTH J .CPTPOF  , aTT« 1 1 2 , TEAR  1 
DO  3b0  a»a&:,T0S  itHDTOb 

c 

1 WOE  «***l 
• 

c 

a j j u s t p oTuIitioNs  for  a t T k i t i oTi 

WaHal|M*w0Ral(Fl-LTRBw(2,lN0E*l*»C9Fl(KI«lPMTlLT|K|((l,-LTR8wi2, 

l 1 N D t (III 

Co  -tT  I NOE 
L * L ♦ 1 

d<»U 

c 

continue 

c 

c 

S A V e KTTRIjatTLOi  A"n6  PhHt  RRtLs 

DU  8tfO  M*2» 6 
UO  d 7U  K ■ 1 , 9 


J 1 « j ♦ 9 

HATElH,)'  )«6tTH1  ) 

half.  |R,JI*aTTLO<M,M 
NATE|P;Jll*pHMI|,|il<i 
h7o  CUwTlNDt 

— covrpTut 

C VERIFICATION  OF  ICHli  I OH  ITS 

J 0 9 00  T t a R * 1 I 9 

lM*aTE.l7,T£>3lffcj«l»Ut  Op  TO  9 00 

|ChO»TEaR-| 

|RaTEI7,|0l*ICH<> 

1,0  TO  9)0 

<00 CONTINUE 

9 I 0 wh  I TE  1 a .“tab  I IC>lG 

1 « A t L I 1 , 30  I ■uBRAEs 

c S «T[  Kate  paTa  tu  Rl’OlFT  hIAPeRENT  *>tGMENt5 

«H1TE  1101  k a T E 
E <l>  FILE  10 

C CHt  4T  E INHUT  0aT«  FILE  IFllNPuToaTa-' 

C wHITE  PARAMETERS 

WHITE  111,101  ESPtC.NTRS.MMEI  , a « 1 2 i MODE  , 1GRAUE 
— C white  'tti, — 'ttt; — of — orriLf  HS  I':  ~v,rattt 

. ■«  1 TE  111,6  J I 

WHITE  111,7;:)  .P«o,  I bPECt  Tl  J)  , 0*1  iK’Pf'O) 

c WHITE  MGN  aTfkinr,  RAILS  •••4TTH]*f* 

w H 1 T F.  (11(A))  |H*1E16,  >),<*!,  9) 

L WHITE  HTw-  a T T R 1 t I 6 H RATES  •••ATTLO*** 

white  111,931  lwaTEI6,K),a*lll,)9) 

T white  i k')"  ut  I oh  Wafts  ••Wf’hnra*"* 

whITE  111,90)  |H»TE(6,al,H»19,271 

c white  >1 » e h ;ub  u'*oeh  Flo.,  v an  l a oles 

WHITE  I I I , R o > lwaTElfr,kl, w*20, ill 


XI I -14 


• • «NH  I T E our  SEGMENTATION  INSTRUCTIONS  FOR  GRADES 


1 T E UlilQ  » 

WRITE  Ul»<U0>  IUPBnOI  3»Kl  ,K«|  ,S0) 


NR  I 


nunnjMi 
■TWTTTTTTTWT 


WHITE 
NR  I 


• HITE  I I 1 . M s 0 I I SARrAt ( I (K I IK* l ,5J| 
END  FILE  II 


lN«ALlO  SPECIALTY  SUBROUTINE  FOB  VERIFICATION  OF  SPECIALLY  NO 


SUBROUTINE  VALID  « I SF*EC  T , L ) 


•••♦♦format  statements»a««a 

format  I I hq , | 3 , » |J  not  A VALID  SPECIALTY  NUMBER  1 I 


IF  | ISPECTIKI.NEHSPECIJI  I 60  To  TvO 


••INTERNAL  S U » R 0 U T 1 
SEGMENTATION  PARAME TiRS.«»» 

SUBROUTINE  REAQR*  INBRGR0iSARRAT,UFBNDiNPR0i5PECLTiSe6NNT,NSPEcI 


COMMON  ispec 

MEtfE*  sPecl'TISoI 

Integer  seb mnt 

•••••FORMAT  ST*tEMEnTS«»»«a 


1 060 

FOR' «T  1 1 

1 07b 

I-ommFT  n hc  , ' i nv*l  I o SPEC  1 ALTr  numb^^EnTEREd  »HtN  re»C 
1 'SEgmENTAT ION  PARAMETERS  for  G*ADE>il2,>  SPECIALTY* ,131 

i I Nii  1 , 

L 

INDEX* <HRGRo-3 

II (SEGMNT,nE«0I  GU  TO  1076 
TT'ETotS  auiB'l  ' i H-SPECIklTOFf 
RE  TURN 


VALIDATE  SPECIALTY  number  ENTERED 


DU  M«  1 I I EN! 

If  ( mSPEC I m 1 ,EQ* I SPEC  I M l|  GO  TO  lOSG 


I J Ut)  COf:T  I MUt 

in  U.‘.TiGT.O|NtlU‘<N  c 
~^k.TuwU 
t.<  J 


c 

c 

• 

• ••1 

• * 
• 

c 

c 

• 

• 

PROGRAM  | . SaCsCREATE 

INPUT  riLtSI  10-  ODOUTUDOI. 

• 

t 

~ r 

"OUTPUT 'FICESI  11*  UDSIPUDIU, 

c 

c 

c 

• 

• 

• 

PURPOSE  1 

THIS  PROGRAM  DERIVES  FROM  THE  SItS  AND  LtSTS 

of  officers  in  grades  o-6  thru  0-2  th»t  are 

OUT  Tut 

required 

ro« 

• 

• 

c 

c 

• 

A 10-TEAR  PERIOD  IN  THE  PRIH»*T  SPECIALTIES. 
OATEI  IS  APRIL  76 

• 

T 

c 

• 

commandi  u.s.  army  concepts  analysis  agency 

W * L # BHUV 

nr 

• 

C 

C 

* 

• 

>120  QOODHONT  AVENUE 
>ETMESD*,M»rylAND  200IM 

• 

C 

c 


DIMENSION  lTREQllll6,l00l,N5PEt(60l|ITlMEtl0l 

OAT*  NSPEC/l 1 , IZt  IJi  IS.  t 5 > 2 1 , jS , 26 , ?7| 28 , 3 I , JS  , 3*.  37,1 1 .72, 73,77, 
IH5,v6iR7i78,M7,SIi&2»53»&‘',70»7|, 72,73, 77,75, 76*77, 81  ,02,03, 84, 87* 
28 B, 9| ,72,73.7s, 77,00,00.00,00/ 

INTEGER  T 0 T RE  0 

re  format  i ittt r.  rrr rsT;  Tt~t tb  . 7 » . 1 5 r 

1 2 format  i iho,  ‘specialty  Id  error  in  following  record') 

IS  FORMAT  I 1 X . A I ,A2I|SX,A6.A6,7X,AS) 

20  format  i m • / i R9»  i • total  requirements  for  spec i »ltt  • , I 3|/ t 
2|  FORMAT  I M •/  ,77X1  'TOTAL  REQUIREMENTS  TTTR  GR  *UE  * i 1 2 ,7  T~ 

30  FORMAT  |>/  tear  OF'  ,Sl7x, 'GRADE* I ,/2X, 'SERVICE' ,S(  I |X, '0-' , | | |/| 

Ro  format  i rx  , • t i l , 3x ',s ! i r ./  i 
R I FORMAT  l7l,t2.SX,10l3X,I61l 

50  FORMAT  ( 7mo  TOTALS, SliR| 

5 1 FORMAT  (7H0  TOTALS, 2X,tOt3X, |41 | 

60  format  i'i  eno  program,  records  ■ 16 , sx .' number  of  oo  ■ • . I « / / 1 

■TerrwrMiT  rtii 

7 S FORMAT  I IHO , *REO I STRI BUT | ON  OF  SPECIALTY  70  REQUIREMENTS', 

l»  To  LOGISTICS  SPECIALTIES' I 
Bo  format  <2x,<t-o  I s »,I6,/I 
b9  forhati iho, 'total  requirements  at  T-a  *RrT<irr- 
70  format  iiho.'toT*l  requirements  for  specialties  lo  - is  before  any 

tREDisTMBUTroTrn  -■  * — 

»S  FORMAT  I I HO  , 'number  OF  RECORDS  BYP»SSEO  - ' , I S I 

77  FORMAT  I |M0  , •••FATAL  ERROR  ■ UNABLE  70  RE  AO  MEC-ORO  MtTH  INTEGER*  f 

••oh  »/n  format  - program  terminated'! 

N1«0 

1 H t C • 0 

C 2tRo  out  TOTAL  REQUIREMENTS  MjTRlX 

c 

c read  IN  BEGINNING  YEAR, MONTH, OAT  For  sacs  REQUIREMENT  data 

read  IS, 701  1 1 1 ME | | | 
c compute  ten  i-ye»r  time  intervals 

do  I IS  *»2, 10  — 

J»K-  I 

IT|MEI*|RIT|MEI j!*IOOOO  — 
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c 

ITT 

"conTTwur  ----- 

c 

READ  tN  SACS  REQUIREMENTS 

100 

READ  I 1 0 , 1 0 ,END*f000 .ER*«89991  TOT  , UPEC  , lEDlTt;  TT01TE  i t»UTH 
IF  ( (SPEC  .LT.  1 1 SO  TO  100 

DO  1 2U  J* I , 1 0 

IF  (ITIME(J)  ,LT.  IEDATE  .OR.  I T I ME  t ^ » #GT*  |TDATE)  QO 

TO  |20 

c 

•DO  |N  JUTHoRIZEO  5TREN0TH5 

ITHeqIJi1SR,1SPEC|«ITRE8(J,Igr.ISPeCI*1*uTm 

I 20 

continue 

SO  TO  100 

c 

8999 

RE-RE  AD  * I TH  */N  F unM» T 

REAOJO, 1S.END*9000»ERR«99  99 I 1GR. I SPEC, IEDATE. ITDATEi 

1 AU  T H 

C 

I HTPAS* I B T PIS* I 

BYPASS  NmT  200  RECORDS  - THEN  TERMINATE  run 

irtIBTPJS  ,GT*  TOO)  80  TO  MOO 
wR  1 TE  1 6 , 1 2 1 

wR  I TE 1 6 . 1ST  !®W*ISkEC,  1 1 u atE  » I 1 d*T£  » f AUTN 
GO  TO  100 

“UQO 

C 

cont inue 

c 

c 

rNINTUU!  TOTAL  HCWU I KtWCNT 5 FQ"  5"E  t 1 ALT  It 5 I u* I S BEFOKt  ANT 

redistribution 

~x~ 

PRINT  90 

DO  5 ▼ 0 I ■ 1 0 » 1 5 
PRINT  20 i 1 

PRINT  80 i I TIME ( t I 
PRINT  30.  1 nL  » NL“2  » 6 ) 

DO  b 9S  U®  t .TU 
N ■ J • 1 

5*5 

PRINT  RO.  N|(ITR^Q1J|K»II»K*Zj6) 
CONT I NUE 

I TREQ  < 1 1 • J » I ) -0 

00  5 9 9 K ■ J ( 1 CT 

itreq(  i i tJ.  i i-itrequ  i ,j,  i imthequ  i J.n 

590 

PRINT  50.  ( iTREUl  1 1 . J.  1 1 iJ-2.6 1 

c 

breakout  specially  10 

L 

00  130  J • 1 ,|0 

DO  130  K ■ 2 1 6 

IT«E0U,K,U»«iTRE(J(J.Ki11M(m5*ITrEQU,K,10»1/I00 

ITREqI J.K , 12 I-ITPEQ! J.A» 1 2)*(1«»ITREQ( J.A. 10J  »/tOO 
ITREQ(J.Kl|3).lTREQ(J.K.13)4(27*lTREQ(JfK.I0))/100 

130 

continue 

c 

BREAKOUT  SPECIALTY  08 

00  | J5  Ja  1 , | 0 

UU  1 J9 

ITRr8<J|K>N2l"lTRE8(J,K1H2l*|TREaiJtl<.8l 
135  CONTINUE 
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C BREAKOUT  SPECIALTY  3A 

C 

DO  I AO  J* 1 I I 0 
DO  1 HO  k»2.a 

|TRE0U.«.3S>*|TREUIJ,K.3bl*ITRE8IJ.K,3M| 

~ KirxotrtiTiut 

c 

C BREAKOUT  SPECIALTY  AO 

c 

DO  1 VS  J*1  , 10 

DO  i A 5 K«2  I 6 ___ 

lTREalJtKlA2l«|TRE8(J.KlA2l-l25AlTREa(J,K|AOII/IOO 
IA5  CONTINUE 
C 

c breakout  specialty  ia 

c 

DO  i50  J * 1 1 1 IT  

DO  ISO  K ■ 2 i 6 

ITRE0lJ.«.JSl*|TREQIJ,Ki25|.lTREa(J,T,Zm 
150  CONTINUE 
C 

C BREAKOUT  SPECIALTY  02 

DO  | SS  J« I , | 0 
00  |5S  K*2,A 

ITRE0lU»Kil5l»ITREaiJiKilSl*ITRE0IJiA|2l 

iss  continue 
c 

C — BREAKOUT -SPEClTCTriO 

c 

00  ) AO  JA| , 10 
DO  | 60  K*2  , A 

ITREOI U»K (2 | I ■ I TNeb I J»K 121 1*1 TREQ I J i*  . 201 
I4U  CONTINUE 

C BREAKOUT  SPECIALTY  22 

c 

DO  I AS  J* I . I 0 
DO  |AS  K ■ 2 » A 

lTHEelU,K,2|l*|TREaiU|Ki2ll«|YNEaiU>K>22l 

f»5  CONTINUE  

C 

C BREAKOUT  specialty  23 

c 

DO  | 20  J> I i 10 
DO  120  K«2 i A 

tTREOlUiK  ,71  laiTBtgTJTTlTTTrTTRTPT  JT*'f23Y 

1 2 0 CONTINUE 
C 

C BREAKOUT  SPECIALTY  A 8 EOR  GRADES  0.5  THRU  0-6 

c 

DO  | 26  J* I i | 0 

DO  1 25  R*S,a  

ITREalJ|Ri20l»|T*EaiU(Ki20M|YRE8IJil'.TBI 
ITNEO • J «K , AS  I AO 
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u u 


1 


— t ts -cunt  in  or 

c 

C B RE  A K OUT  SPECIALTY  9G  TOR  GRADES  O-l  THRU  0-~R 

c 

00  iBO  J » I .10 

00  180  K • 2 » 9 

1 TREarj  ,E,92I.1T*EU1  J,*.921MTHCU1J.*TTB! 

ITREWI  J,K  ,9BI«0 

I Bd  CONTINUE 


BREAKOUT  5t>EC  I ALtT  99 

00— tss  -JRTTTO 

00  IBS  5*2,6 

ITREOt J,R,92I«ITRCQI J,K192t»tTREQ( J,*ittT 
I TREUI  J ,K ,9* ) *0 
1 85  CONTINUE 

PRINT  OPT — TOT IL  REQUIREMENTS  BT  SPCLl*tT|E5 

DO  190  191,50 
JN-NSPEC I I I 

ir  { jn  .£q.  ooi  «o  to  i»o 

PRINT  20,  JN 

prtnt  mnniRi  t~i 

PRINT  JO.  ( NL , NL  * 2 » 4 I 
DO  195  J" 1 , 1 0 
N • J - 1 

PRINT  9q,  n. ( ITRtqt Ji* . JN1 ,K*2.B1 
195  CONTINUE 

Drift  jm 7;j 

lTNtal  1 1 » J, JN|«0 
DO  I ft  A • 1 ,|0 

1 TR£Q|  1 1 «U,JN)a|THEQ(  1 1 iJ,JNIaITREq(K,J,JN) 

199  CONTINUE 

PRINT  50,  ( 1 T re  y 1 1 1 , J , JN ) , j«2 , 6 I 

TtO  CONTINUE 

REDISTRIBUTION  Of  SPECIALTY  TO  TO  LOO  SRtE+RtftCS 
DO  250  J*5,6 
DO  290  N«I ,10 
I SuH*0 

Sow  TWC-  tOTT  SPECIALTY  REQUIREMENTS  -BT  ORAPt  AND  TEAR 

DO  230  K« | ,50 
ISPEC«N3Ptc«RI 
IF | JSPEC.LT. 71  ISO  TO  23o 
locateo  a log  specialty 

IF  I I ITREUIN  .J,|SPtCI.E0.0l.ANC.(J,E0.6l  I 

— » T5UMI SOW*  1 TRTOTn.-S  1 rSPeCTTS— rS 

!SuM*lSUH*lTREq<N,J,ISPECl 
10  CONTINUE 

SUN* I SUM 

PRORATE  specialty  TO  REQUIREMENTS  according  to  relay  1 ye  STRENGTH 
UO  235  A* I , 50 

IHNSPrc  It  I .LTrfTT'  BO  To  235 

IAreC*NSPECI«I 

ir  IITREQIN.J,lSPECl.Ea.0I.AWMJ.E9.BniTREfltNiJ,T5PtCtR 


ir<  i imuiNiJtlspEciica. ui«*nO.  u.ca.ti  ito  to  21s 
FRrCT*  I ITrEQI N, J, I JPEC1/5CHI  • ITRE8IN, JiTCI 
|TRtaiN,J,|5PEClR|TREBlN.J,ISRECI*FRRCl  ♦ 0.5 
|15  tONllNUt 

ITrcSIN.J, 701*0 

rnr  — cuNumjE 

250  CONTINUE 

c 

C PRINTOUT  Tot  Rc  REBUIREHEnTs  70"  5PEClRLT|ES  71  - f7 
C 

DO  2fO  1*1 i 50 

-JN.NSRECTTI 

IF  IJN  »LT,  7||  50  TO  2* 0 
PRInt  20 i JN 
NR| t£ I 5,75 I 
PRINT  Id,  I t|ME  I I) 

PRINT  1U|  INL,NL*2«5I 

bo  2»s  j*  i . ro  — 

N • J • l 

PRINT  RO i N, I ITRtat J,K, JNI ,**2,51 
its  continue 

DO  2»»  J*2.» 

ITREB*  I I iJuM.P 

00  2RR  ,10  ' 

1 TREQl  1 I iJ.JN|*|TrE8(  I 1 (J.JNI.lTREul* iJiJNI 
2t*  CONt|NUE 

PRINT  50.  I 1 Tre«I I I . J.jNI  , j*2,6  I 
2R0  CONTINUE 

C 

C printout  TOTRL  RtSUIRENtNTs  Dr  GRRoE 

C 

00  JOO  I«HRUE*R|2,-1 
print  21  I I GRROE 
PRINT  80.  ITIMEI  I I 

f*tnt  m iNL,TiL'»rm 

DO  3 I 0 J • I ,5,0 
JN.nsRECI Jl 

IF  IJN  ,EU.  001  5o  TO  310 

PRInT  R|,  Jn. I |T»E8I I »R . IGRROE . JNI , ITR*| , 101 
210  CONTINUE 

c coppute  t otic.  red.  for  r«TR  -cRTtpt  »wo  Ttnrnor' sptc 

UO  3 15  l TR* I , IU 
I TRta I I TR i I , | 00  I *0 
00  3 15  J* I I SO 
JN*nSPECI 01 

IF  IJN  , E u , 00  1 50  TO  315 

TTRE5I  I TR,  1 , t 0irT»tTRt8T  ETR  ,-  TvrOT?r*rTRe-»T  tT-RtTRRRPt  , JW1 
215  CONTINUE 

C COHPJTE  TOTRL  T-o  RE  RU I RE  RENTS 

roTRE9*ToTRE8»|TRE8ll.l,IOOI 
print  51,  I | TREB' 1TR , 1 , 1001 , 1TRR1  , I 0 » 

200  continue 

JR  I TC 18185  1 TOTRta  “ 

*00  «R ' TE  I I I I I TRE  U 
PPIllT  50,  lREC.Nl 
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i f I L • 

1 4.  a U 


1 C T • I K ■ U ' t ^ L K ♦ 

1>Q  1LU  IJ  ■ I i » J 

U • 17  ♦ i 

I J l * I I / - A I • 1 « ♦ 1 

»:tcott  1 1 b , *7 1 1 • iM  1 J1  i ) ')  j i 
L A |.  l N < U',  ! I 


MM 


|*«  I | Ji  1 1 A . ul  1 

f « Cl  TT . i y i'  i i 

1 Ft  i i J » r 1 . i ■ i j 

1 »C  To  1 

1 J J a | J 1 * V j 

^uCl'UI/orHJi, 

l '»  ( 1 J J ) » A i (it  I 

*12  FQRhaT1AH,12A4>aH) 


FORMAT ( A A 4 | 

FOShaT  ( > NUMBER  TARES  B[|ng  READ  EQUALS  *,m 


IF  ( iTAPt.QT.NTAFt >60  TO  Jq 


F ( I TAPE.GT, | j CALL  E R T R AN  I 4 , * «F RE I 10 
t AS£<*>  • NT  Apt  X ( ITAPC1 


L tWTP  AN  ( 4 t 1 A*v»  i 
GO  TO  1 


EKOFlLt  U 
CNQFILC  11 


• RITE  I A.f^OI  1CTBLF. I*RIT£ 

FORMAT!  • numBER  OF  RCCOROS  PROCESSED  EQUALS  ••!§*/ 


• • nuhber  of  records  extracted  EQUaH  ' | 1 • I 

STOP 

subroutine  rut  iOut  i 

COMMON  /OPT  I ON/ 1 RR I TE 


IMENS10N  | OUT  1 1*1 
FLOIOiA*  1C0MP 1 -F  LO ( JU»6. IQuTl  1 2 I 1 


F ( iCOrip.Nt  # » iu4i 


FLD(0iA.l0FF»»FL0(4»41l0uT(*m 
if ( iqFf.ne, «oByygw» ) re  turn  e test  for  officer  record 

IORaOE  • FLO ( 1 2 i R » 1 OUT  I R I ) « extract  grade 


-2* 


1 


• 

• PROGRAM!  SAcSFKEPlTd 

• INPUT  FIL*5I  TEmPDISC  - COPT  of  sacs  eatract  tape  iioi 

•  OUTPUT'  rrtlS!  ODDUTUDO I • « TEMPI  . II  . 

» PURPOSE  I ThIS  PROGRAM  CORRECTS  MISTAKES  IN  SPECIALTt 

« NUMBERS  ON  TNt  0«t«tNAL  SACs^  ORTA  *W  ««t»TIS  A WtABtt — 

• file  to  be  used  bt  the  pfoosap  .sacscreate  program. 

• ■ oatei  is  *PRIL  Tt 

• AUTHORS)  MAJ  J • D • THOMAS, MAJ  J • W . OLSONiHR,  r,l.  BROtaN 

—T TUMMANPI  -UAS.  ARMT  CONCEP  CS  ANTIl  T9  I S AUENCT 

• B 1 20  MOOOMONT  AVENUE 

• - _ *tTNE50»  ,MARTCAND  200 1 R 

» 

MAdiAHiittMi'iiMAtititiiniiin'iTinimiiiTiMinimifni 

DIMENSION  loUT(B) ^ 

1 ThRcD»THREF .THRftN iThRLP iTMRUV ,THR8 , THRM 

INTEGER  DBLERO.ONEBLA  .FOURBK  ,HVtA,Sl*BLK.SIIA,TMRS,THRA8, 

ITMRcDtTHREF.THRSM.TMRLPlTHRUV.THRU.THRW 

FORmATIBAaI 

FORMAT  I I HO , 'OUBLZERO  ■ * , | fl  , • ONE. BLANK  ■ <,IB, 

«•  rbuRiBLnrK“i“'T'fTBrrmji»  nvn'r »tth7»  six*blana  . »,tr; 

• • S|»*A  • •,|g/|No,t  ThREE-S  • • • I fl  • * ThrEE-aB  • ',1s, 

*'  ThREE-CD  > * , I 8 / 1 HO , * THREE-EF  a «»IB,*  TBREE-GH  . * , t«T 

• •ThreE-lP  • •ilB/lHOt'  THHEE-UV  • •,!*,'  THReE-Q  ■ * , 1 6 , 

A • THREE- • ■ ',|B) 

FORMAT! IhO,' l Sum  . * ,1 10) 

ttorhit  T^r- nro  TRoaRANT-TtrcoRoy-R  'ttrrn 

I TOT AL-0 

REAol I0.3,IND«»RR»ITOUT 
(total*  itotal»i 
CALL  PREPRO 1 1 OUT ) 

80  TO  I 

rnoTiLrn 

J PRINT  200U,  itot*l 

WRITE  ( 6 , U 7 I DBtlR0,0NE8LK (FOURBK ,F t VEA ,StABtK,StAA , 
aThrs.TMRAB.TMRcDiTHREF ,T MR 6H,THRLP,TMRUV, thru, THRU 

lsUM*DBLZRO*ONtBLK*FOURBA*FIVEA*SI*BLr»SIAI*THRStTHRAB 

• ♦THRC0*THreF*ThR8H4THRLP*TmRUV«TmR«.THRM 

hr  irr(  s iRSTtsOir 

RLkINO  |1 
STUP  EINISH 

*•«  internal  subroutine  for  reading  and  re-formatt ing 

• ••  s a c s extract  tape  aa. 


subroutine  preproiiouti 

DIMENSION  IrAtI  I o ) , I OUT  t B I 

common  DBL2R0 .ONEBLK ,FOURBk,F|VEA,SI»BLK,SIXA,THRS,ThRAB, 
ITHRcDiTmREF .ThrGH.THRLP.THRUV. THRU, THRU 

INTEGER  OBLZRO, UNEBLK.FOURBK, FIVE*, SI X8LK«StxA,TMRS,THRAH, 

I T R R CD  i T HRE F , THROW ,T*FRLR1  THR|JVTT"RRO  , THRU 

j format  i *2 , a i , r i t a»a , *$  ■ Jx i 
) FtHMAT  II2.AI ,R1 *AA6,A5) 
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t *Tt"»  1 0 • !UUf»  tf**TlJl,JRt,I01 — 

IF  (|HAT(2)(EQ»(0*«ANO.IRAYO)  *EQ.  «WV000Q«  ] 

1 GO  TO  777 

c 

IF  | J R A Y 1 j ) ,GE# 

RB  .AND*  TRAY  1 Jl  57T 

GO  TO  2DTT 

c 

c 

HISTaFE  FOUnD  IN 
t R A V ( 2 ) CONTAINS 

RECORD 

FIRST  DIGIT  qF  SPECIALTY  NUMBER 

c 

IR1VIJI  CONTAINS" 
IF  IIRATI2I  • E Q • 

SECOND  DIGIT  UF  5 F L v.  lTLT T 
• 1 • I GO  TO  1 

NUnBLK 

I f 1 i R*T 1 2 I • EQ  • 
IF  (|RAYI2|  , t Q • 

*2*  I ffO  TO  1 

•3* 1 GO  to  3 

IF  | I H A V I 2 I . E g • 
IF  | I R A Y 1 2 I • EQ • 

•S'!  GO  To  S 
•5*1  GO  TO  S 

c 

|E  .EQ. 

f4'  J iro  ru  5 

c 

UT  TV  OUVJDtL  Itn« 

|RAT|2I»*0» 

7*7 

Jnay | j j «ikd 
DBL2«0«DBLZ«0* l 

c 

' RETURN — 

c 

1 

CONVENT  IQ  SPEC  I NETT  IB 
IRAy(2I»' | > 

TRAY  III* IRS 

ONEBLK*ONEBLK* | 


— 6p~to  -rtro 

convert  to  srect*ltt  r* 

<4  I RAy I 2 I • ' N • 

niTiiiotin 

FouRBK«f  OUNBH* • 

M m 200 

c 

c convert  to  specialty  n 

5 IF  ( i R*  r ( j i • e g » IRA)  I RA  Y < 2 I • ’ I ’ 

IT  (IRRTI2I  *NE A * t*  I tR*T«2l»*J» 
IRAY I 3 >«|R | 

Fivr«»rivE»*l — 

SO  TO  200 

—i  tr  nRtrtii  .cs>  tR*t  so  to  r 
c 

C CONVERT  TO  st»ECt*lTT  2S 

I RAy I 2 I • ' 2 * 

TRAY!  2 1 RB — 

Sl«BUK»SI«BLK*l 

GO  TO  *00 
C 

C CONVERT  to  SPECl»LTT  16 

7 |RAyI2I»'3' 

- IR»TI  1 > »rRs 

SI KA*S1 XA.  I 

GO  TO  *00 
C 

C CHECK  SECOND  DIStT  OF  SPECIALTY  3 - 


3 IF 

1 |R»Y( 31 

• EG* 

IRA 

• OP  • 

1 RAY  I 3 1 

.EQ. 

I RB  1 

GO 

TO 

13 

TF 

n»*rm 

• EOT* 

T RC 

• OP  • 

TRAY  t TT 

re* t- 

_T RO  f 

TO 

IN 

IF 

I IRAYI3I 

• EG* 

IRE 

• OP. 

IRAT  U 1 

• E W , 

I RF  1 

GO 

TO 

IS 

IF 

1 1 R A T I 3 | 

• EQ* 

IRG 

• OP  • 

IR»Y(3I 

.EO. 

IRH1 

GO 

TO 

u 

■ 
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If  | |*»tl Jl  <EG>  |RN  .0R.  IRAYI3I  ,EB«  | RP I GO  TO  17 

tF  IIRAYI3I  .EO*  IRU  .0*.  IRAYTJ1  .TTi  1RVT  “GO  TO  IB 

IF  ||R«flJI  • E Q • IRQ)  GO  TO  |Y 

IF  i|"*Tlll  «~la>  1RWI  GIT  To  n 

IF  | | R A Y I 3 I .EG*  1RSI  |RAYI3I*IR7 

— — nr*  t < 2 1 - • * • 

THRSyTMRs* I 
GO  TO  200 
c 

c convert  To  sPecI*LTV  SJ 

13  |R«rl2|a‘G< 

— nrrvTTi  - nrr 

ThR»B»THHaB* 1 
GO  TO  200 
c 

c convert  To  specI*LTY  S2 

Is  lR»Tl2l«'b* 

TRTrrJ  1*1*7 

TMRCD»THRC0*1 
GO  TO  200 

c 

C CONVERT  TO  SPEC I *LTY  IS 

IS  |R»T(2l«*«ft 

TRIY1  J1*IRS 

tmref»thref*i 

GO  To  200 

c 

t CONVERT  TO  SPECIALTY  16 

It  lRtvi2l*'s> 

TRmTIRIRB 

TmRGHyTHRgH* I 
GO  TO  200 

c 

C CONVERT  TO  SPECIALTY  YY 

(7  IRAyiZIy'Y' 

— — 

ThRLP»THR|.P*  I 

GO  t6  200  

c 

C CONVERT  To  SPECIALTY  51 

is  | R A V I 2 I ■ ' S 1 

TRAYT  JtAIRT  — 

THRUV*THHUV* I 
GO  to  200 
c 

c convert  to  specialty  ay 
|Y  I R AT  I 2 I • • A • 

- TRATTJT»tRY  — 

THR8*THRa« | 

GO  to  200 

c 

C CONVERT  TO  SPECIALTY  37 

2 | |MAyI2)y'3« 

I RA  y ( 3 I RIR7 — 

THRNyTmRk* 1 

C WTT | Tt  OUT  TURRECTED  SPECTTCTT 

200  »R|TE  III. 301  I |R»r I J I . J*l  , 1 0 I 
RETURN 

ENU 
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• •••§••••••••  • • • ••*  • • • n*?r  #*•**•  • ni*nTfTi  • n *i#  • « 


PWOCrAMI  '•TOURATIOS 

INPUT  filEsi  odturudoi. 

ODRATUDOITTONCy  tFT  UFTJATt  ROOD 

output  files:  odRatudoi • 

PORPOStl  TRtS  PROgRA"  CREATES  AND  T7PT7ATCS  TJTTLtZRT ION 
RATIOS  AND  TOUR  LENGTHS  BY  SPECIALTY  PAIRINGS  FOR  GRADES 

tr=T~THRU  °-V  AND  COMPUTES  KIUWBEH  or  PREF  E RE  NCES  I NPREF  I 

DATE!  IS  *PR1L  7* 


c 

c 

• 

• 

AUTHORS! 
COmmano 1 

"AJ  IfiPT  THDHAS.HAJ  JfRi  OLSOFT.TTR.  R7L7  BROWN 

u.s.  army  concepts  analysis  agency 

_ T — 

• 

c 

c 

• 

®t20  WOOOHONT 

betmesd*  .Maryland  200m 

• 

c 

c 

• 

i 

OHho"  ISPECIBol 

DIMENSION  UTLRBll2l,IUTLRa(ll|,IUT|L(6l,UTlL(4l,NPROB<IOI 
INTEGER  T0UHUI.URATI0|50.50,i) 

DATA  UTLR8/o.*.|8..22,.2B,.38,.H6,«54',.66,.7o,.78,.82i|.0/ 

UTT  A TU7LH8 / I SYTTlTi  I2,23,!|,J2,Z|  . J I ,M|  .SI/ 

Data  I SPEC/ I I . |2i  I 2,  It,  IS  ,2  I . 25 , 24 , 2? , 28 , 3 1 ,35,  JA,  3 7 , V I , 12 , 1 J , IN , 
IBS.ra.RT.BB.rB.SI  . 52. 53 151,7 1,77, 73. 7r;75, 74,7  7,8 1 ,77783784787,55, 
2? I ,42, *3. 75, 77,00 ,00, 00 ,00, 00/ 

DEFINE  FILE  I 0 I 4 <2500 , l , TREE  I 
FORMAT  (212, 31 F5*  3 , 1211 

rwHTT — rrsi 


'.151 


FORMAT  I IH|  , .NO.  OF  CARDS  HEAD  • ' ■ I S / I » , • NO . OF  PREFERENCES 

FORMAT  l!"|  ,»  INCORRECT  "ODE  N A "E  ENTIRETY  T 

FORMAT  ( I 

FORMAT  III, .card  no,  • , tM.Y  TYAS  « PROHIBITED  ALTERNATE  SPEC  I AtTT*  / 

ah. <all  ratios  and  tour  lengths  were  ignored') 

"B“  FOPPITT  1HTX,  IF  PLLOWING  INPUT  RECUHU  ATTEMPTS  TO  RCDCFIRt  « ', 

I 'TOUR  length  for  PRIMARY  SPECIALTY  ',13,'. VO  PREVIOUSLY  ', 

2*defined  tour  length  is^n 3 ;n ' , . TNE~ TouN-rtTreTH  -was  not  . . 

3' UPDATED. • // IHO .2  I 2, 3 ( FS.3 , I 2 I , • CA«0  NBR  * . 1 7 » 

1 FORmATI  IHO, 'NO  TOUR  length  input  FQR  SPETT»LTT  »m/pTtn 
A'OEFAULT  VALUE  OF  aaS**  WAS  INSERTED  FOR  ALL  GRADES'! 

TXT TTTRNATT  IHO  . 'C«RO  NUMBER  »,rP.»  |S  A DUPLICATE'/ 

• iho, 'Caro  image  m»s  • ,2 1 2 , 3 ( fso , 1 2 1 / 

•Imo," it  was  Rejected*) 

c rlad  in  whether  to  update  or  to  cne»te  initial  touratio  file 

c AND  read  in  PROHIBITED  ALTERNATE  SPECTALTlEy— 

READ  IS, 2)  hODE 

RETD“T5 , 4 F nBRPRO , I NPROB I J I , J.l , NBR PRO  I 

IF  | mOOE  .EG. 'CREATE • .OR .MODE .eg. 'UPDATE •) GO  TO  70 
GO  TO  BODD 
70  NCARO*0 
NPReF-0 

IF  (MODE  .EU.  'UROATE'I  GO  TO  101 


INITIALIZE  uT|LIz‘T|ON  RATIOS 
CO  91  JWA.M.-I 
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tREc*7»J 


oo  7*  h»i,sq 
00  75  N«1 |50 
URATlOIM.N, I RE  C 1*99 

75  CONTINUE  

76  CONTINUE 

DO  77°N*I^50  !~N»Tt 

00  75  Nit, 50  

00  71  K ■ I .NBRFRO 

IT  | KiPROB  I if  I .Nr*  1 SPEC  I N I 1 50  TO  73 

URATlOIM.N, |REC 1*58 

50  T7J  PR 

73  CONTINUE 

7*1  CONTINUE 

77  CONTINUE 

»|  CONTINUE 

50  TO  100 

~T RTK0 

101  DO  |9B  I R E C a 1 i 6 


C 

C 

c 

— c 


It*  READ  IIOMREC)  HURATJOt  J,K,  IRrCt  , J*1  iSO»  (Kit  ,SOt 

•••»••  creite  touratio  eile 

100  READ  IS  , 1 iEND«fOOu,ERR«IOO I I pH , | Al T . ( UT I L IK | , T OUR  I K | , A ■» , 1 I 
NCARD'NCARD* | 

I val«o 

CHECK  70  SEE  tr  *LT»  SPECULTT  TS  I COneiT  ARMS 
00  IOS  JAl.NBRPRO 


IE  ll«LT  .Ea.  NPSOBIJII  SO  TO  100 


IDS  CONTINUE 

C CHECK  f or  VALID  SpecIAlEtIPRJmARTI 

call  VALlOl IPR.NCAROllVALitPNTRI 
C SAVE  pointer  for  PRIMART  speci»ltt 

" I PTT | » tPNTR  ~ - 

c Check  for  valid  spec i alTy i alternate  i 
call  VALlOllALT.NCARD.tVAL.IPNlRI 
c Save  pointer  for  alternate  specialty 
|alti*1pntr 

IF  I I VAL  .La.  *9  1 SO  TO  1 00 

— C duplicate  c»Rtr -check 

iriMooE  .eo.  'Update'  i so  to  i i u 

IP  I URAT I 0 I IPRl  I I ALT  I i I » joe .88*  I 
• SO  TO  110 

c CHtCK  IF  A TOUR  LENGTH  ENTRY 

IF  IURATIOI IPRl • IPRl  ,»I.EO.O'I  SO  TO  ||0 

wRJTEt»|*OI*CKR&rtPR  | FALT  rttFT-MrTK-FrTOtlR-HH  

SO  TO  IDO 

c DETeRHINE  iNTEStR  VALUE  FOR  UTlLRATlO 

I I 0 DU  9 0 K ■ R » 6 
UAUTILIK  I 

IF  (0  . ST . |,ol  U».9 

DO  80  U»I  ,|3 

IF  IA8SIUI  ,ST  , UTLR8IJI  .AND.  ABSlUl  ,LE>  UTLRBIJ.nl  SO  TO  79 
SO  CONTINUE 
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~rr  TtrrrrnfT*  ruTCRn^i 

90  CONTINUE 

CREaTE  UTILIZATION  RATIOS 
DO  95  ioHA3l.H,6 
IREc*7-IGRAoE 

CHECK  F ON  PROHIBITED  ALTERNATE  SPECIALTY 

inm- J 


I ■ nbRprO 

IF  PRIMARY  SPECIALTY  is  a PROHIBITED  ALT-U.R.  IS  AS  GIVEN 
IF  ( I PR  .Ea.  nFROBIJII  50  TO  9T 
7 I CONTINUE 

c~  test  to  see  if  alt/primary  preference  swjm.tr  be  cnrifEB 
HRAT I 0« I UT I L I I GRaOE I / I 0 

NREf  TTJ*TUT  I L I ISR*Dtl-l 10AHRATI0I 

IF  I | ALT  .LE.  IPRI  50  TO  9s 

IF  (URATIOI  I *L T 1 >IPR1  iJRECT  7NE.  991  50  TO  9R 
UBATIOI 1ALTI t IPRl >|RECI*INRAT|Q»I0|*HRAT|0 
9R  URAT 10  I IPR  | , | ALt I , IREC I "lUT I L I IGRADEI 

IF  I URAT  10 | | ALT  1 » IPR I i IREC 1 ,nE.  991  50  TO  9S 

95  CONT INUE 
C 

C CREATE  TOUR  lengths 

c 

DO  97  IGRAD£*R,6 

I HE C ■ 1 U- I GR  AOE 

c is  this  the  first  time  that  the  tour  length  for  the 

Z SPECIALTY  WAS  INPUT  *-  TT  fES^EZttVT 

INDEX* IPRI 

IF IURATIOI IPRI < INDEI,  tRECI  .LT.  I lUTrATtonPRI'.tNOEir,  IRTCti 
ATOURI IGRADE 1.10 

~x ooi~s~STmsrffaT7rT~~ input  agree  pith  t«RLirP"t'NPUT-»ir -tes^- 

C CONTINUE.  if  NOT  EQUAL-»ERROR" INPUT  not  accepted 

IF| ITOURI  IGRADE I/IOI .EQ.URATIOI IPRI 1 1 NOE A i IRCC 1 1 GO  TO  97 
»R|TEI6,8lIPR|URATlO|lPHl,IALT|,lRECI,IPR.lALT( 

A I UT  1 L t *C  > .TOURIKI  !r»»,Rl  .NCARD 

97  Continue 


c write  our  error  Message 
BOOO  WRITE  14.51 
STOP  ERROR 
9000  CONTINUE 

C CHECK  TO  SEE  IF  ‘LL  SPECIALTIES  HAVE  A VALID  TOUR  LENGTH 

z ifnnnnrr^Tir  cotuHN — otte 

DO  99  JS6.R.-I 
IMEC»IO-J 
DO  ’8  M« | ,50 

IF ! URAT I OIH.H . IRECI .gT .0  I GO  To  90S 
c IF  LAST  SPECIALTY,  THEN  STOP  THE  LOOP 

rrtTSPfrCTnT.I 

hr  I TE I A ,9 | I SPlC I H | 

UR  AT  I 0 I M , 1 , IRtC !• J 

NEKTI*IREC*| 

NEXT7«IREC*2 
UHATIOIM.H.nEXTI 1*3 

0RATr01TT,MrNrjITZTR3  — 

GO  TO  98 


985 


URATIOI H,  I , |RECl*URATtOIH,M,IRECI 
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~vr-  njirrrrot 

9»  CONTINUE 

C NRTTE  OUT  0TTtLtt*T101»  TTtTlOS'  »NO  TOON  CtWOTW 

00  |99  IREC.1,6 
smtTtUiTOI  I t NEC 


90i  forhaTim  tour  ratio  file  record  number  *,imi 


902 

WRITE  14(9021  | IUHIT10I  JtE.  IWtU  ,R»I  i5TnT0»l  .801 

FORMAT  1 Sx (50 1 2 I 

C 

wHlTE  1 1 U M NtC 1 1 IUHAT I U ( J , K , IRECI |U"I *501 |K“I  i 50  1 

COUNT  THE  NUMBER  OF  PREFERENCES 

DO  9800  J RtiSO 

00  9500  K ■ 1 (50 

c 

1K(L)WATIUIJ|K»|)»UT*88M  HO  TO  ?5"D"0‘ 

IF  BOTH  COMBAT  ARMS  bypass 

irnuNATrorjl*,-rf  itO»«8.-  T(TND.TDNNTtoricrOTrTTGri88iT  ) ' 

9 50  TO  9500 

t 

IF  * PREFERENCE  OF  A COMBAT  ARM  COUNT  TWTCC 
|FllURAT|0(J(F||liE8'B8.l. AND. (uRATIOIKiJ.il. LT.88(ll 

c 

• NPREr,NPNEF*7 

FOR  PREFERENCES  OF  TWO  NON-COMBaT  ARMS 

IFIIURATIOI  J.*  lit  (LT*88.  1 . AN0.njRAT10tKrJ.il  iEW.BB*  1 T 

• 50  TO  9500 

| F t I UR  AT  TO  1 J7*TI  1 .CT(B8i1  iAND.  tURATIoncrJil  1 . NE  • 8 8 • 1 1 

• npreF*npref*  1 

Tsotr 

9*00 

C(JN  1 1 NUL 
CONTINUE 

PRINT  *t|  NCARD.NPREF 

STOP  FINISH 

c 

c 

Internal  subroutine  valIo 

r ■ 

SUBROUTINE  VAUOIH.ICARD.NVAL.IPTR) 
common  tSPECISOI 

3 FORMAT  (lA.'CARO  NO . ' , I R I ' HAS  invalid  specialtt  NO. *,13) 
DO  1000  J*  I .50 

IF  (M  (NE(  I SPEC  < J 1 > 50  TO  1000 

50  TO  2000 

looo  continue 

WHITE  I*|JI  ICARO.M 
NV«L«T9 
2000  RETURN 

■ • tmi  ■ — 
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c 

BLOCK 

DATA 

• • 

c 

c 

• 

• 

SUBROUTINE;  BLOC*  DATA 

— 

• 

c 

c 

• 

• 

C A L L E D BY!  NONE 
calling  arguments;  none 

• 

• 

c 

c 

• 

• 

called  Rourrursi  nowt 

purpose j This  blOckoata  routine  establishes 

The 

• 

c 

c 

• 

values  of  the  BASIC  DATA  AT~THE  UTAH?"  OF 
The  program. 

• 

c 

c 

T 

• 

date:  is  *fwil  7^ 

authors:  maj  j . d • Thomas, maj  j*w,  olson, hr. 

R # L • BROMN 

_I 

• 

c 

c 

• 

COMh aNB I D*5*  ARHY  CONCEPTS  ANALYSIS  AGENCY 
B \ 20  WOOOHONT  AYENuC 

f 

• 

c 

c 

• 

BETHESD* .HARVlAND  20011 

• 

• 

rr 

include  phoci.list 
c 


data  minus;  . plus  I » zero/  -i . • ,0.0/ 

c 

DATA  MAXSPC.MAKTRs/50,9/ 

data  NAME/'CREU't'TREa'i'GOZO'i'LlNC'.'ciNC* , *UBSG« / 

C 

DATA  NBRSPC/l|.|iil3ilRi|S,2|,2S,2AtJ7,2Bi3|,35i36,37i‘tli,tZ.Rl,<t'ti 
|1f5.RA.>l7,‘t8liI<l,5I,5Zi5Ji5R.7[  , 72 . 7 JjTi)  ,-75 ,7S7T7i»T ‘.TJ  .113  i 84  ,.7,BH  , 
27Ii92i»3.9S.*7.0i0,0i0iO/ 


DATA  NN ,RES ,RR/*Nt , •RES  * 1 'R* / 

C 

END 


XI I -32 


SUBROUTINE  BOUNDS 


c 

c 

c 

"C 

c 

• 

3U8R OUT  INK  I HUUNUb 

called  by*  main 

• 

• 

c 

c 

• 

calling  arguments j none 

called  ROUTINES!  1 B 1 TS  , I PHASE  • V AL 1 D 

• 

c 

c 

• 

OUTPuT  FILE5!  f * ODEQaUDOI 

PURPOSE  1 This  SUBROUTINE  writes  the  BOUNDS  CHAPTER 

• 

• 

T 

c 

• 

F OR  T HE  T HPi  MOpfc. L • 
DATE!  IS  April  74 

• 

c 

c 

• 

AUTHORS  I T4AJ  J • D • TH0WAS*HAJ  J • W » OCSqN  » HR  # R#L*  THROWN 
COMMAND!  U.5#  ARMY  CONCEPTS  ANALYSIS  AGENCY 

• 

c 

c 

• 

• 

• izo  NoooMflNT  avenue 
BlTmESD* , MARYLAND  zooir 

• 

A 

r 

c 

• • 

> 

• ••• 

INCLUwt  "HOC  1 
INTEGER  MCID 

NEIL  LOBNO 

pROORB* I • 0 

r 

c 

•••••format  STATEMENTS***** 

c 

to 

*0 

JO 

FORMAT  t 'BOUNDS'  1 

FORMAT  U* • «UP* i j*. ‘BOUNOS* ,M* I **N* . J2i6X |Fl 2#i» 

YtT 

so 

60 

70 

t tT  i ^L"Ur  f**  I ♦*UV*U**  • HI  1 • XN*  \ Uf  \ %t  I f 1 T* 
FORMAT  ( 1 X i * F X • » 1 X i ’BOUNDS*  # M X » • X * tJS|Mx,F 12.31 

FURMlt  MX(vUPvt*Vi  * BoUMOS*  » Rf  I TX0U0  * »U2iR*»r!2*3t 
FORMAT  I 1 X • * UP  * • * X . ‘BOUNDS • ,MXi»Y,,JliJ2,J2#MX.F12t3| 

c 

c 

c 

whttt  '▼rrtTT 

IF 

IFWGRADE  tlYl  J?  TO  I 50 

1 JGRADE.EG.2 ) GO  TO  *0 

c 

1 F 

f N3PEC  • LT  • 3U*^R  * I3CG  • GT  « | j gq  TO  *30  • 'SE^t,^T*T 

•••UPPLRbOUNO  ON  XOOOn  - SELECTED  spec  control  OF  INPUT 

urr  ao  "nt  » ri"8RpRo 
do  a i m ■ i iNspec 

at 

GO 

| p | NPROB 1 NX | • t Q • NB^SPCtMJ)  GO  T©  82 
CONT INuE 

BZ 

to  au 

CONT 1 NuE 

TNOt  X*  TW^T  T • TSTRS*  l'T*"l 

upper*  m»xiupBndimi-  float i reoz i I"de* i 1 .0. 1 

bo 

GO 

CONT I NUC 
TO  1 30 

c 

SO  — DO  too  WiTiNS^te — 

C •••UPPERBOUND  ON  *IL  SPECIALITIES  AT  TO, *000--  ILT  ONLTI 

JNOEI»IH.l  |A|NYRS*1  t*t 
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WHITE  I9(60l  NbRSPCIHI lUPPE* 

100  CONTINUE 

c 

iL«r-  mini  n9rs  (I chc  i 

DO  120  J.l , IL»ST 
K*  J*  1 

00  110  M.l  iNSPEC 

C •••OPPERBOUNO  ON  ILL  INCUMBENTS  TON -TO  * CT^TCWG-J  ItT  ONtTT 

lNOE*.(M-lt»(NTRS*ll«l*J 
UPPER. Fl6»TIRE01 I INDES I i 

c scan  reomts  for  blockages,  reset  rebuts  if  * blockage 

TTiriURTIHgail  1 won 6 1 l I .LI  .UPPEHlNtOTI  tNDE«*l  I»REB1  l |NPtlt) 

WRITE  I9.F0I  K ,nbRSPc I M I iNBRSPC ( H I .UPPER 
110  CONTINUE 

1 20  CONTINUE 

ISO  IF  1 JGRADE ( LE  « S I GO  TO  ISO 

C ••••SETTING  lO  NN.O  1 F No  FLOW  |rT0  «•••• 

jn  HO’  W.T  .NSNEC 

CALL  IPhaSE(Hi»|90I  e SEGMENT 

1 NOt*. I M. I | .N5PEC*N 

IF  I IB | TSI RTTPE I |NOE> I >NE •} I GO  TO  190 

arCIdwnbrspcI,,I*100*nbrspciNi 
WRITE  19.501  »HCID,IEho 

“pnj continue 

C .••SETTING  uB  ON  KN--  • TREa  IN  last  tear 

c 

I BO  00  155  j.i.nTrs 

PR0DRB.PR00RB»ININ1SURVHIiJ)  .SUR9L0I  JIT-J— 

1 55  CONTINUE 

“ ' bb  I /tj  Hal  (NsPtt 

CALL  IPHtSE|M>«|70l  S SEGMENT  CHECK 

j NOES* I M | • | nT«S. I l 
UPPER*FL0ATlREa2l  I NOE  A I I 
IF  I JGR ADE.NE • 3 T BO  To  160 

C •••FOR  CPTS  ONLT  - LO  BOUND  ON  AN--  gT  0 FOR  AES  ONLT 

lOBNDGZENO — — 

c • • SE  T N0N-2E*0  LOWE*  BOUNO  FOR 

rF(FILIOIN;«BT.O>L08l*t>»FLO»Tr»rS*l  JNDtK).?«oe»gJ 

WRITE  19,901  NBRSPC|M| (LOBNO 
ISO  WRITE  19,301  NBRSPCI"! lUPPE" 

I T 0 CONTINUE 

RET  ORN — 

ENU 


nrvnrvnrtrnn 


SO 

c 

T 

*0 

c 

c 


c 

TC 

BO 

_c 

c 

90 

c 


i NvoLvro»»» 

IF  I Tut lL l N.N I >GE .88  I 00  TO  250 

MRaT  lOwTUTTCTRTFn7TB 

nraTI0»TUTILIH.NI-|HRAT1Q»|0I  

00  TO  to-  ’ 

NRaT|0wtUT[L<N,M|/I0 
hhFTtoi'nJTILIN.HI-NBATIffMO 


enter  the  gozint*  and  gozouta  values 

•»®otow» ' ••gozoa* 

WRITE  I’.IO)  ARC  I D |F  .NBRSPC  I *i  I .NAME  ( J I |M  INUJ  I |NN  , J , 

NBRSPtT>»T,N*MET31^XURVinm 


n — I J .FRZNTR3  I GO  TO  TO 

•••  RESS  H N •••  •••  tres  ••• 

WRITE  TT.ZOI  ARcro.ARtTO.RIITUSI  ,RITi  JIRBRSPCTR I i1»*MtIZ|  , 

PLUS  1 

GO  To  BO 

• ••  RE  SO  M N ••• 

'T'TZOI  ARCIO.ARCID.HINUSI 


I 00 


inrrrr 

continue  

LEnGThwTTOURINIwNRATIO 

F TwF  

IF  i iKT»LENGTFn.GE.NfR3f  GO  TO  ITU" 

•••THERE  WILL  BE  FLOW  OUT  OF  spec  N in  FT  ♦ LENGTH** 

•••H0»  MANY  CINC  CONSTRAINTS  |N  TOyR  LENGTH 
HOLD|.I*<r- 
!EnOwLEMGTH-| 

TF  riENOVGT.OI  "inTTB  TOO 

••ONE  TEAR  TOUR»«» 

‘NT tOuR*n  I T0URF1 

IF  INlTOuR.GT.I I GO  TO  I Bg 

FPERTwIF 

GO  TO  1 3a 

DO  1 10  N1»I . IENO.Z 

FPER 1 *F*N| 


VALUE  I WHOLO I »SURVHi (FPt nil 
VALU^ZiVALUE I »SURVHI|FPERZ1 
IF  I INI. | I.GT.IENDl  GO  TO  1 20 


t ••••CINCiw  A*CIWC*r*T~ 

WRITE  19,10)  ARC  I 0 .FPER I .NBRSPC I N I .name  I s I , VALUE  1 ,NN  , 


— r 
1 10 

CONTINUE 

HolD1-V*LUEZ 
GO  TO  iJ0 

c 

1 Zo 

•*c 

WRITE  ( 9 * f a 1 A«ClO.KPtR|  .NB»5PC(NI  ,nAH£<5/  , 

FPeRJwFPERI 

c 

|30 

IS  there  TIME  to  rotate  BaCF  to  SPEC  H 
IF  1 ifpErz*i i .ge.ntrs)  go  to  zro 

c 

RESTRICTIVE  Flow  IN  PERIOD  FPER,  N T0  M 

INOE*>|FP£R»NSPEC**ZI*(N-|l»NSPEC*M 

UOl'B'I^NOI/dI^suRvhi  , KPtR , 

IOOUTwFPtRAI 10000 1 *N6RSPC|R»»100»N«RSPCIMT- 

— 
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— n<n»in»fn«»» 

"HITE  (»,20l  A»ClOi IDUUTiMOLDI 
tVILI*  * HOLOI»lOOO 

wh  I r c ( ■ 1 1 2 1 1 idout,nratIOimr*tio,ttourini  , r touh ih  i .arciDiIvalia 
ROTaTE  TO  M end  OtTEHHINI  TIME  fH  5PEt  H 
LEvSTm*HRATIO«TTOURIM1 


•••FULL  TOu* 

••••MOM  HALr  CINC  CONSTRAINTS  EON  5*tC  H 
IEnD«lENsTh-1 

rr  iicno.st.oi  so  to  iro 

• ••ole  TERR  T OUR** 


bO  TO  | Tq 

DO  1»0  RIRIUENU,2 
kpe"I*fper«M| 

CRER»RFP£R1*| 

VALUE  1 "MOLD  I »SURVMl I KP[H I I 


IF  I IMI  *|  | ,ST,  UNO)  SO  TO  Ito 

nnlRC'T  ••cttc** 

■ RITE  19,  | 0 I ARCIOiKPERl iNBRSPC ImI (NAME  IS  I (VALUE  I .NN, 

1 «PER*(*»RSPCtHt  iNA«et»UVRtWt* 

HOLD  I • V ALUE  2 

Ho  coni  true 

SO  TO  i To 

• ••tHC'tn 

I AO  "R|TE  HiIOI  ARCID.KPERI  (NBRSPCINI  iNAMEISI  (VALUEl 

HOLD  1 ■ VALUE l 

*PER2»RFer I ♦ l 

: -■  »n itt  TwnrE-tTrv- Pt»ioH  BfroHo  rpER« — 

I T U IF  I I rPEr2« l I ,SE (NTRS I SO  TO  2*o 

••••*•  ROTATE  TO  SPEC  N ••■•»»• 

KR«P£R2*I 

: • t ao o the  le"*th  or  *••• 

aper**per*lensTh 

tr  Titrt«*i«c»TVT»si  bo  to  »ro 

l0OUTal*PERIA|l0000U(NB*$PC|H|*t00|«NBRSPC(NI 

HOLOI*HOlOI«»U*T**tfr«R» 

vALUEI*HOLDI 

: •••*•  WR  t T£  OUT  RESTRICTIVE  FLOW  fO*  PERtOO  RPER 

••••RES*-H-N*»»*»» 


■ RITE  I S • 2 0 I ARC  10  I I 0OUT (VALUE  I 
I V A L I A ■ VALUEl**  000 

■ R|TE<B,mi  IDOUT.NRAT  IOiHRATIO.TTOURINI  .TTOURIMI  ,ARCIO(  IVALI» 
LEHSTHRTT0U»IN*»NRATtO 
•••ADD  THE  EENST  OF  N««* 

KPr*RCPtP»LtW»TTr 

••Is  there  tihe  To  stat  in  n for  i more  yr*» 

K RR  * I 

IF  II K I «LT ,NYRS  I 40  TO  »U 
60  TO  2*0 

; arspec  h is  on*  tear  loss*** 

hold  I • MOLD I •3U« VM I t KpER ) 

VALUEIRNOLDI  — 
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c 


c 


c 

200 

210 

C 

C 

220 

C 


c 


2 JO 

C 


c 

210 
250 
2 60 

2 1 0 

C 

C 

c 

c 


c 

2»0 


IndE*»I*P£R»nSPEL»»2i»iN-|I»N5PEC»m 
»B|TE  (♦,201  6PCI0# TOOUTi»»tUEl 
lv»Ll*  • HitOtl^'OOO 

PRITE18.121  1 IDOOT,NPiTIO.PP*T10.T’TOUPINl  .TTiJUKtBT  .llfCIO  » IV  ill  « 

KPCP2»*pEP 

GO  TO  I^U  " ' 

••time  1m  SPEC  n exceeds  moR120n-"ILL  NOT  LEAVE  N.»» 

IP  (x.EB.INTRS-ll I oo  TO  250  

PLIPT»SUHVMI | J 1 

6*etNC**« 

• MITE  1 T i 1 0 1 »»CIO|J,NBPSPCINI  ,N6M£|S|  ,PLEPT 
»*M0«(  H»NV  nOhi  C|NL3**« 

IEnD»NT*S-U»7I 
IP  I IEND.LE.OI  so  to  zso 
DO  2 I 0 L*l  i lENUi2 
n Pi* i "EpL* i 
KRE*2>*PE*|*| 

~ Vn.~Ptr»WCE>T»SU*VHI(KPt*l  I 

v*LUt2«V*L0t|«su*yM||Kf>EM2l 

IP  C HM  I .ST.  IEND  I GO  TO  200 

•••CINC»«  •••ClNC»«» 

• PiTt  ( f « | 0 I MCID.KPEM  .NBPSPCTNt  .PUPE15I  <V*LUE  l .NN 

| rpe«2  .NBRSPU  n I ,m»me  I 5 I .v»luE2 

urrvT.viLuu — 

GO  TO  210 
•••Cl"Ct«* 

• PITE  19)101  »MC I D .«PlR  1 INBNSPC I N I |N«ME I S I , V*LOE I 
CONTINUE 

GO  TO  2&0 

‘THE  i G f )~L  UTGOTPH — m 

• ••IP  there  is  NO  RESTRICTIVE  plop*  Then  »RC  NOT  cpERTEOx* 
ir  I |b1TSIPESPE0iINDEIIiEb*OI  GO  to  250 

• •CiOZO**  • • GO  Z 0« • 

• P I T E 1 T * I 0 I »*CID.*,NH*SPCTP| ,n«"EI 31 ."tNUJl ,NN, J, 

l NBRSPCtN I |N»Nl t 1 I )5URVH1 I jt 

loout  •E*rrornnrr*T»iTir5^ETPT*TooTTTOiTTPET»n 

1NuE«»I*6NSPEC»»2I*Im-1i»nSPEC*N 

IP  I J.Nt.NTPSI  GO  TO  730 

••••••PEs*>M*N«»*«* 

•R I T{  IT. 701  »*CID. IOOUT. MINUS! 

GO  TO  2Su 

COnTTNU* 

••RES"»M-n««  •••tre«*»« 

• RITE  1T|20I  «*CID|1D0UT)H1NUSI ,NN| J , N9PSPC t N T . N«ME I 7 I , 

1 PLUS | 

GO  TO  2*0 


•••TrE#*»» 


KKT 

CumT INOi 
CONTINUE 

CONTI NUE 


• ••••.-RITE  CONTSTP* PTTV  POP  U|»*'»n 


DO  2 80  Ja | f nSPEC 

• •••••>.  •mnrtmin •»Trro*jrcTTT»*»» 

• RITE  I • , 3o I NBR5PC I J I iNTRS iNBRspC I J I ,N»ME I 3 1 *P INuS I .Plus  I 
CONTINUE 


RETURN 

E .0 
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SUBROOTjNt  HI  COt. 


c 

c 

c 


subroutine  Hicoxs- 


nriiTiimMtiTVMaiimfiritiiiiiiMMiiiTnfnTiTnTvmmnTi 


k'llRUI 


n | 

CALLED  B T * M I COL 

c*cciN5  AWgpwtwrsnnmr 

CALLED  ROUTINES!  I B I TS , I PHASE , JPHASE 

OUTPUT  ntE5T  - * * OOTOAUODTi 

purpose:  defines  var i ables . »ppropr i ate  coefficients 


SESMENT.  IN  LT  SEGMENT, DEFINES  VARIABLES 
REPRE5XPTIN5  CPT5  i/TST  SEVEN  TEARS  TJP^  StPVT  CE 
DATE:  IS  *PR I L 76 

AUTH6RST  »T*U  U«D*  THORAS.MJ  UTWi  OLSgrpTR.-  R.L«  >R0WN 
COMMAND  I U,S.  ARMY  CONCEPTS  ANALYSIS  asency 


BETMESDA .MARYLAND  200IM 


Include  pnoci 

inteser  arc  i d 


c 

TO 


--  -»«row  T.w«w,»Htnt  n'Ktn;i>onT»  por  braoes  nos 

FROM  ICHS  for  brace  2 

IUSnSI  " 

IF  | J6RADE.C0.2I  lBSNa|CH6.| 

IT  I IB6N  •BTV  HERB!  YO  T0“7T7 

00  270  Ja|B6N.NTRS 



00  240  Hal tNSPCC 

CALL  IPrtiStlM.TJiOT 

00  2S0  Ra| ,NSPEC 

— ctlC  lTnu5rnr,-»«or 

C»lL  JPHASE<N,N.»25o| 


narEgii.u 

• »»  USED  T N COCFF  CALCULATION 


is  i.o  unless  source  eor 

In  WHICH  C»SE  FLOEAC  ao.S  •a»*»»»aa« 

tr  m.nnii'sr  to  yytj 

IN0C»a(K«NSPEC»«2l*IN-l |«NSPEC*N 


tp-ysp 


C 


c 

BO 


c - 

VO 

|00 


r~ 

e 


ir  IH|T5|RESFL0||RDE»I.CB«0I  ~gO  TIT 

ARCIO«R»l IOOOOI»INBR$PCIM|«IOOI*NBRSPC(NI 

IIMIIICOIOHK  — ***OOtO*www-" “ 

MR  1 TC  I 7 , | 0 I ARClD.K.NBRSpCIMI .NAMEllI .MINUSI |NN|J| 
nb  r spctn  t-  rNimrTi  > , soRTm+Tt 

IB] Tao 

-tr— tJQA*OtlUl«.AWOl  |BIT3|REsrt0l  INOBR  I .ERIN  I IBfrfl 

IF  I J6R*DE.Ea.  2.  ANO,  |B  ITS  | RESFLO.  INpEAI.NE.il  I 1 B I Ta  I 

IF  U6RRUE.6T.2I  WRITE  17,201  ARC  1 0 , ARC  I 0 . M | NUS  1 . NN  , J , 

RBRSPCt*!  iNRRtttl  .TUtl  

awaatREsFLO****  ••••«»••••*• 

tF  I'TBt R i to 1 2 1 »rm  trr*Di  aRcioiarcipiihiiusi  .nm.j. 

NBPSPCINI .NAME) I I .PluSI 

4AAI«CREQ**7*  

IF  IIBl7.E6.il  WRITE  <7,2ol  ARC  1 0 . J , NBRSPC I N I .NAME  I I I , 

IF  I J.EB.NYRS I 60  To  2S0 

itMimAHtnin 

WRITE  <7,101  ARCIDi  J.NBRSpdNI  ,NAME|2I  .PLUS1 
otTE*MT*t  tr  rt or  is  from  rtrim*r  o#-»tTtRHAte  br-botr- -srtc- 
if  noneof  the  above,  Then  is  in  tme  path  of  an  earlier  source 

ir  I IB  1 73  I RtSftO  i TNOTtn  .tB*  2"t  -oo-rtt  oo  

IF  I ttt|7siRESFE0i INOEAI .Ea>2 I 60  To  70 

. tr  TTB1  7*1  RtSFlOt  INUE»  u*t  .2)  BP  70  MO 

FLoFAC*O.S 

promotion  i»  fr»r  pr t hart, theRetor*  m- tr  r*t  onto 
MRAtlOw7UTILlM.NI/IO 

NRArnjwTuTIUMINUrMRATtOitOt  

60  TO  100 

■ -PROMOTION  tY  PRON  TNt  AtTERwATE .TMeREPORE  M |S  TM  ALT  SPEC 

NRATI0a7uTIUN.NI/lc 

MRATIOwTUTItlN.Mla.NRATIOllOI  - 

LEnSTMwNRAT IOwTTOUR | N I 

ATwR  ' ' 

IF  I l*T»LEN6THl .6E.NTRSI  60  TO  210 

- r»«4TRtRE-YTtt  mt-rtOR  But-OT  SPEC  N»WR» 

APERwkT*LEN6TH 

• a*HO»  MINT  CINC  CONSTRAINTS  1W  TTptTR"  ECNYTM 
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HOLOMI  '0 

1 1 0 IEnD-LENGTh-I 

ir  I UN0.GT.O1  GO  To  170 
C ••ONE  TEAR  TTouR»»# 

nttourwri tour* i 

IF  I N 1 TOUR  . ST  . 1 I 60  TO  200 

KPe~R2>K " 

GO  TO  1^0 

i 20  ~ Oo  1*0  HIM.1ER077 


KPER l «K*N I 
KPER2«RPERI*1 

VALUE|.MOLDI»SURVhI  UPE**  l»FLOFAC 

vTlUE7«1VALOE1«5urVH|  URER71  l*FLariC 

IF  I lN|*l I • GT • I END  I GO  TO  |R0 
c • •»»CTNE«  ••'CTREVbtt 

WRITE  I9,|0>  ARCIO>*PErI  iNBRSFClNl  iNANEISI  ,T»LUEI  ,NN, 
1 KPERZ.NBR5PC(KTrNAKEI5i  .VALUI2 

HOLD  I »V ALUE2 

fTO  CONTINUE 

GO  TO  1^0 

t • •ei**crir 

no  «R|TE  I’.IOI  »HCI0,FPER1  ,N«RSPC|NI  ,N»HE(5t  ,v»LUtl 

HOLD  1 "VALUE 1 
KPER2»fP£RI 

C i5  THERE  T I HE  TO  ROTTTT'  BaCK  T0  !>PIC  H 

no  IF  I ( kpER2*I  I .GE.NTRS  I GO  TO  2<to 

T~  •••RESTRICTIVE  FTDW  TOR  KPEHr  TrTO~R8 •«»»«» 

IDOUT.|KPER»IOOOOI*N8RSPC(NI»100*NBRSPCIM| 

HOLOl.HOLDnSURVHKkPERr"- — 

C •••••RESFLO»*»»» 

WRITE  HilUl  ARUTT,  IOOUT  .H0LU1 


I V *L 1 • HOLOl»IOOO 

WRITE  IB,  121  I lOoUT.fJRATlO.HRATIO.TToORlNr.TTOURTRTV  ~ “ 

• IOOUTiIVALI 

C ROTATE  TO  H AND  DETERMINE  TIME  IN  S^C  H — 

LEN6Tm«MRATI0»TT0UR|H| 

ir  r i kpeiia length*!  i.ge.nyrst  lengih.ntrs-kper 

C •••FULL  Y TOUR 

c ••••HOW  MANY  C INC  CONSTRAINTS  EOR  SPEC  H 

IEnD.L£NGTH-| 

IF  IIENO.GT.0I  50  TO  I4(T 

C •••ONE  YEAR  TT0UR»« 


no 


c 

i 

TTO 


TFfR2-KPtR7*l 

GO  TO  I’O 

00  no  Mt»I  t TEND  , 2 
FPERI"KPER*H| 

KPER**KPERI»I 

YALUEI»MOLDl»SuRYMllRPEM*nFLOFAC 


IF  I < HI *1  I . GT . 1EN0 I GO  TO  180 

• ••CtNC>«  •»C1-.C.» 

WRITE  IT, |0'  ARCIDiKPErI iNBRSPCImI .NAMEISl  ,T*LUEI  iNN, 
VPER2.NBR5PCIHI .NAMEISl .VAL0E2 
HOLOl «VALUE2 


go  to  no 


c 


«A»CIHC»..- 


HOlD|«V»LUEI 

1CPER2«*PtR1 

•••AWE  THERE  »N»  PERIODS  BETOND  KPER2 

ir  nKPtRl»r)»8E.NTR5l  SO  TtrZNO' 
»•••••  ROTATE  to  spec  n ••••••• 


C • • A 00  THE  LtRSTH  OP  «••• 

— ~ 1CPER*lCF,*R*LtNSTR 

IP  (PPIR.&E.NTRSI  GO  TO  2W0 

1 0'OUT*  I *PER  I » T 1 0000 1 ♦ T NBRSPC  (HI  * TOO  1 »NORSP  C I N I 
holOi«holdi*suRvhiipperi*plopac 


P"UVl I -"VLU I 

1 •••••  write  out  restrictive  plow  for  period  kper  m to  n ••• 

O'  

WRITE  (Ti20l  ARCIDi IDOUTtvALuEJ 

tV«LI  • VALUEIA1000 

wR|TEI®i  121  I IDOUT iNRATIO|MRAT|0|YToUR|N| ,tTouRihi | 

» -iTotrrrrm  r 

length»ttour i n > • nr  a t i o 
c •••ado  the  cengt  op  naa* 

ppeR»pper«lengTh 

o • • 1 5 THERE  T f HE  Ter  STAT  IN  N for  I WORE  TRAA- 

Awp*  I 

GO  to  110 

GO  To  2H0 

c aaspec  t*  IS  oh£  tear  LOH«»»a 

20U  IOoUTw|PPERA|OOuOI*(NBRSPclNl*100l*HBRSPC|H| 

HOLOIAHOLOIASURVHt  tFPERI •PLOPAC 

value  i "Moldi 

-t --  A*»RtS|«N«H»lit 

WRITE  1 T l 2 0 I ARClOiIDOUT.yALUEl 

IVALI  * TALUt I A 1 000  

WRITE  IB,  12|  I IDOUT (NRATIO.HRATIO.VToURIN)  .TTOURIHI  , 

• IDOUTltVALl 

APER|»pP£R 

-OTJ  TO't^O 

C »*T|he  In  SPEC  n EPcEEUS  moR|20N*PILL  NOT  LEAVE  N»«« 

2 1 0 IF  flr.c»i  INTRS-m  50  TO  2»P 

L •»C1NC«»A 

write  I’iIOI  ARdO,  JiNBRSPCINI  ,NA*t|S  r.SURVHtT  J I 
c ••MOW  HANT  hOre  CINCsaaa 

' — IENIT*riFTTT*T**Tt 

IP  | ienO.lE .0  I GO  To  2S0 
RLEPTASURVHI I Jt 

00  220  L* I i lEND  i 2 
FPERl "P*L* I 
PPER2»KPER I * I 

■ V»LOEt«RtrP^t«SCHTTHttFPERTT — 

value  2»V*LUtl»SURvH|UpER2l 
Ip  t I L*  I I is* > lENQ | GO  TO  220 
C ***C1NC*»  •••ClNC»*» 

WRITE  ITilOl  ARClOiFPtRl iHePSPClNl |HAHt ISt i»*LUtt INN, 

| KPER2.NBRSPCINI  .NAMEISl  |VALUE2 

RLETT*TAtOE+ 

GO  TO  230 

C *aacInC»»* 


XI  M3 


CONTINUE 
SO  TO  J50 

[ NT) E *■  fK*NSFCt*iJj'iTM"I  r*N5FTC*W 

IF  I IBl TSI NESFLO , INDEX  I >NE *1  I SO  TO  250 

50  TO  90 

CONTINUE 

CONTINUE  ~ 

continue  

IF  i JCTADEi  nE«  2 ) RETUWT 

write  constraints  for  *n--«*»« 


<80  Jm  1 |N5rU 
CALL  IPHaSEI J>*2B0) 

mtm  HHsoTTJ8T»r- •.r.oBjrcTTT**** 

WRITE  IR.ROI  NBRSPCI Jl .NTRSiNBRSPCI Jl .NAMEIil (HINuSI I 

continue 


rTtUrN- 

ENO 


UNCTION  1B1TS  TtNORO , JBITI 


TtmrmiwT rrm 

CALLED  BVl  BOUNDS  cPDIAq  HICOLS  LOCOLC 

UJCUL3  X00U6  RESffl  RE5L0 

ROwoP 

CALL lNg  ARGUMENTS! 

I mono  • array  to  be  packed 


JDi  i ” muii  ur  > nt  rnuuu  « * n a t 

JVALUE-  value  TO  BE  STORED  IN  ARRAY 

e*ttEO  ROtt*tNt*r  -non* 

purpose i this  punct i on/subrout i ne  handles  the 
packing  and  unpacking  for  the  hatri* 
generator,  each  value  of  a word  is 


r "L-'UW  i'NIW  J u I I 3 ' ” w 3 YA  1.  L/  VJ  Y.  A ^ L U N L 

retirements  for  the  ARRAY  BT  I I / I 2THS • 

THESE  words  INOICiI*  whether  A RESTRICTIVE 
flow  contraint  is  retired. 

DATE!  IS  APRIL  7* 

authors!  haj  j.d*  Thomas, maj  J,w,  olson, hr,  r,l.  brown 

B 1 2 0 WOODMONT  AVENyE 
6tTHE30*iHARTL*NO  ?OOtN 


»»«v  -THE  EWTR^-  PO-tirr- lOTTS-RtTAItrS  TNE  SToRtO- 

DIMENSION  IwORDltl 
www | I I • 1 WORD  I I I 

IBITSWPLDI3AH00IUBIT*!  | 112) , 3 , WWW t I JB | T ♦ 1 1 t/|2t  ) 
RETURN 


••••  The  entrt  point  set  stores  the  value 

ENTRY  SE  T t 1 WORO )UBIT|JVALUEI 

FlD|3»M0DIJBIT»|IiI2Ii3>«wwI(jB|TmII/|2II"JV*LUE 

RETURN 

End 


Subroutine  input 


SUBROUTINE:  INPUT 


CALLED  BY!  m«|N 
calling  ARGUMENTS!  NONE 


called  routines 
input  files: 


■ PHASE .R8E0I  T I INTERNAL  I 


S - UOINPUOOI* 

CARD  I - BaSICPAR a PETERS 


CARD  2 
CARD  J 


'CARD  H 

carp  5 


CARD  6 
CARO  7 


CARD  8 
CARD  9 


CARD  10 
CARD  11 


AUTHORIZED  strength/gRade 
Subset  i specialties 


ATTRITION  ETC  TOR  - FR0HUTIE5 
ATTRITION  EaCTOR  - J N GRAOE 


pronotion  eaCtor 
OvERELOW/UNDERELON  FACTORS 


SeSRENtaTIOn  INDICATOR 
U • B * EOR  SUBSET  1 


U.B*  EOR  alt  SPEC  SuBSTT  | 
A D V ENTRY  SPECj ICHG.NBRAES 


CARD  12-  ( Or  CPT  RENAINING/yEaR 

to  - uuRAruPoi. 


utilization  ratios  and 
tour  LENGTHS  eor  the  grade 


OUTPUT  EILES! 


II  - OUSACUUOI. 

specialty  REflUIRENENTS/GRADE 


standard  output  on  printer 


V - odeqauDc  i * 
purpose;  This  routine  inputs  all  the  data  into 


The  matrix  genERator.it  also  computes 

T HE  TOTAL  REQUIREMENTS  EQR  A GRADE  BY  ADDING 


TMe  UnEIlLED  higher  grade  REQUIREMENTS  TU  the 

RE8UIRPMENYS  Of  tmf  GPAOE  SfGMENT.  ADDITIONALLY 
RfCONPUTFS  PROMOTION  RfTPTTOR  ITC  AnD  'Ha  J ' 

sfgnfnts  based  upon  solution  to  previous 
sfghfnt  . 
date:  is  April  n 

IuTNors  I Raj  J,D.  I homaS  , mA  J ~J  • W ■ OLSoNiNr.  R,  L • BROWN 
command:  u.s.  arm?  concepts  analysis  agency 
*T20  .'BUMonT  JVENuE 


BETmESOA , tarylAND  2U0IR 


INCLUDE  PRQCl .LIST 

CALL  OPTI lYALUEl 

dimension  itregi!i.6iIOOi,atth1<9I,attlo(9I 
"Pat a SiRRAY/50* 1 • ) 

define  EILEI01 |2i2500,Ui IREC) 


•format  statements* 


J FORMAT  I U,ZX.|2.3«,2AR>2«,A4.I|) 
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PORMAT  I I 


PAT  I I H | ,A|X, 'UNPILLED  REQUIREMENTS  POR  GRADE  0->,tl,/l 
PORM»T  IIU*,'  PCI  AUTM  TO'  *e*  ,♦!  'T'  < 1 l (8* I ) 


MAT  II  HO  .'SPEGIALTT'tU.PlO'Q, 101*01 
PORnaT  Uf,121JI 


I n pur^aT  1 1 ur 1 1 o i 
, 12  PORhaT  I 1 OP 


DO  20  N ■ 1.50 


READ  IN  PARjMETE><5 

READ  I 5>  l ll  N5PE  C . N Y R S l NAME  | . N 4 M E 2 . NODE  . J GR  A D E 


IP  InSPEC  . GT.  "AASPCI  STOP  nSPEC 

ip  intrs  ■ at.  haatrsi  stop  hyps 

NH1TE  1*1  21  NAMei,NAmE2 


OR  1 TE  ( * l J I 

READ  I s I * I authma 


read  In  selected  specialities  por  segment  i 
read  Hi  mi  nbRpso  , i NpWoi  i k i ,*•  i ,n»KMo  I 


»R I TE I A . 1 J I jGRaDE 


50  TTT  205 


R E A 0 I S . M I 1 SEG 

SEG 


* segment  Indicator  ( □ • i • 2 i 


0 I 5 i I I 1 UPBND 
READ ( S. | 2 I SARRA  T 


60  TO  210 


c 

c ••••••  read  in  ADVANCED  ENTftr  SPECl  ALT  Its  , ICHCi.NbR  OF  ADVANCED 

c 

>•••  SPECIALTIES 

20S 

REAP  16,  81  1 AES  1 1 N 1 , I N.  1 , 20  1 , ICMG (NBRAES 

c 

HEao  ^,  ’I  CPTREM 

c 

reap  IN  OTILI2ATI0N  RATIOS  FOR  THE  6RAp[ 

210 

1RLC«T*J6RA0E  | 

IF  1 J6RA0E  .6T  . 3 1 REAP  llOMREc)  OTll 

IF  IJ6RADE.E9.AI  60  TO  220 
lREC»7-J6RApE 


IF  ( J6RaDE.lE.3I  IRECw3 
REAP  IIO'IRECI  totil 


c 

c 

1 

22  0 

IRCCwI0-J6RA0E 

IF  1 J6RA0E. 6T.3 1 REAP  IIO'lRECl  TOoR 

1 

IF  ( jGHAOE.EQ.6  ) 00  TO  230  ( 

I Wtc« lU-JOKAOE 

IF  I J6RA0E.LE.3I  I R E C ■ 6 1 

REAP  1 1 0* 1REC 1 TtOUR  i 

c 

c 

REAp  IN  VALUES  F°R  6RaoE  HEOOIREMErTS 

j 

i 

c 

c 

1 tR EO  < VR, J6R APE .SPEC  1 
read  in  reouirerfnts 

1 

J 

*3u 

fttAD  l I IT  I TREU 
I LND-NYRS*  1 

DO  260  H« l , nS^EC 
I ■NBR5PC ( M ) 

00  2S0  K«l  • 1 1 N D 

1 N 0 E X . ( m - 1 1 • I E N 0 * F 

FGRaPExJO  R *DE * 1 

IF  I 1 6RA0E *6T .* 1 60  TO  ?R0  1 

c 

c 

REJI  holds  THE  HIGHER  6RADE  REOUIREmenTS 

2 **  0 

wEQl(  lNOEX**^LOAtl  lVwejjk.i&RADE*!  1 )•!  I 
Cun  r i nue 

• nOFLOH 1 1 » • s 

c 

REJ2  holds  The  CURRENT  gnaDE  REMO IREMENT6 

REM2I  |NOEXl"FLOATI  1 TREQIX.J6RA0E.1  1 1*1  1 

• ♦OFLOLOM’P 

2*0 

2*0 

continue 

cont 1 NUE 

c 

••EBIT  PROHO+ION  RaTE5  For  etc  ano  MJOR  SEAmENTS 
IFIjGRAOE.GT.3  .‘NO.  JgRADE.ET.AICaLL  R8E01T 

IF  ( !GHADE.c,T,6  ) GO  TO 
I b G N ■ 1 

Ieno«Ntrs* 1 

WRITE  Is,  SI  I6«A0E 

wr  | ft  nr;  si  t n l , m.  ■ 1 > v i 

00  2/0  ".| .NSPtC 

TOl  IPHA5I |R7i2T^| 

r Am  a r • sawRatiRiaIoo. 

j2S 

Trite  1 , riWP5PCIHl  , T ARRAY  . j "E  Q | | J) 

| pbNw | END* | 

TbCN , IEnDI 

2»0 

I£NP*1EN0»||.TRS‘I  1 
C QNT INUE 

XII-48 


6"AD£ 


KfllTE  I*.  tl  INL,nl»1.’I 
00  2f0  HaiiNS'CC 


.ARRAY  • SARRAT I M I • 100  , 
CALL  IPHASEIM.Bl’II 


i ' t i • i 

IB4N«|EN0*1  


NO* I NYNJ4-  1 I 
;oN7 |nuE 


compote  total  reooirements  and  store  in  resz  array 


If  I JU"«Ut . E»  • A I 
IEno*NSPEC*INTRS*I I 


CONTINUE 

RETURN 


subroutine  R*EDIT 


LD  HATE  NAS  ‘FT. 5,'  »S  N£«  RATE  >|Ff, 

••  THEREFORE  '.FB.S.*  RILL  BE  USED  IN  This  SEJMENT'I 


eorhaT i iho i • total  unpilleo  requirements*  .jha.fie.ii 
pqrhaTi iho,»minu»i  requirements  SAtlsiriEO  last  year  * . 2 1 a . 


FORmaTI ImO.I»,'RA»  REeulREMENTS  TO  RE  PILLED  this  TEaR'iIT* 


1 2 . A > 

FORMAT  I IHOi IPLUSI  ATTRITION  In  SR*DE'iI2i  


(ATTRITION  R ■ T E •’.FA.R.'I  '|Fllt 

FORmaTI IhOiSI , • total  REQUIREMENTS  to  be  filled  BY* , 


mn  • » I * » r I 

furmati  iho,«starT|n#  an»ot>,ii,>  population  l**t  tear*,2R«, 


12.1' 

format 1 1 ho. • m| nuS:  promotions  last  ye »r*  ,jr» ,f iz.ji 


iiii  miBi:iii 


•F12.ll 


■tr— b/tt  miTi.urrwit  ■■liuiiir 

nji.rr.id 

i ttb  j tton  _ • r 

• F*,r  , 1 1 ' , M« ,F i J. 1 1 

, TS  formaT 1 1 h4 , . Sr adE * , 1 2 . * POB 

•FI2.ll//l 

i 

TTTON 

AVAILABLE  FOR  PRO(.OTIUN.,|R», 

» « Bt  PROMOTION  / ' I 

foRmaTIImo.iof.'lraoE'.Ia.1  population  i 
FORmATI |m0.21«. ' • * • F I 2 • 2 . • / ',F|lill 


N" A ' I I MO . 2« I ■ ' ■ 

T AUTm.iuThm« I JGRAOE  I 

si*Nl*0.0 
s*  TO |F  »0. 0 


|ENO*NTRS*l 


uu 
SUHaO* J 


DO  *100  K«  I .n5PLC 
KKwnBRSRC  I H I 


ROU 


SUX«SUW<rn]«T ) 1 TBC9 lL.I6W«PE.KK)*II.O*0FL0H|n 
conn  nue 
rTTHhI.j.q 


t F ( L .fiT,2l»TT»HI«(S*»SUH|«*TTH|IL-2| 

UFREa-SuH.SRVSUH 

SUM.UFRcQ*»TTRM| 

attruq.q»d 


lFIL.taT.2l»TTR|,0"IT»UTH-S*VC|F.S»yHI|R*TTLO(L*2l 
DEnOM.T4UTH-tS«yDIF«S«yH|)-RTTRUO 


IN*l-I 
RgwNUR/pENOM 


RE(.R»S*VH[»S»VUI* 

RE  a 3w  T RUTh»REUR 

*.RlTE(»,IR|lNlFR«TliNI,R*,RB 
wRlTEj6 
WRITtlO 
»R  I TE I * 


131 


I b I SUN 
1 6 I S«VSUM 


WRITE16 

WRITE16 


17luFRE0 

IllimPt » »TTK>  I U»2 > »>TTRH  1 


•R1TEI6 

WR 1 T£  I * 


I V I NUN 

2) IjGRRDE, TRUTH 


■RITE16 

WRITE16 


22  I HEQR 
23) jaRAPtiREBJ 


€ J t win  j 

2R)4 ttlo|e-2) .rttrlo 

2b  I jGRRPt iDENUM 

2 6) 


«RI TE I » 
write;6 

WRITE16 
WRITE16 
WH I TE I 6 
WRITE16 


27  I jSRROt 


28i\ur,dErOh 
2RI  Rg 


pRRT I In  i • R 8 
T Ru  T H*DE  ROM 


bOU 


S»v  H | «RT  TRn I 

3 » vJ 1 F»sum -b*  VSuH 

SRv’SUMwsUW 

CONTINUE 

return 


ENO 


SUBROUTINE  |PH*St|M.II 


» saffWoUfruri  TPmst  ~ 

• CALLED  B f I BOUNDS  

• CALLINfi  ARSUNENTsi 

• M . SPECIALITY  index 

a » - RETURN  IF  N 15  SUBSET  1 SPEC 

• CALLED  FUNCTION!  IPROB 

• PURP65T7 ~^WE  FUHPUSE  OF  IHI5~R0UT1NE  |5  TO  PETCHNTNE 

» IF  the  se&ment  indicator  is  set  at  tno. 

A A NONSTANDARD  RETURN  results  if  h rs  * 

• SUBSET  I SPECIALTY, OTHERWISE  RETURN 

• DATE!  IS  APRIL  7* 

• authors!  Haj  j,d<  Thomas, maj  j.w,  olsonihr.  r.l.  brown 
A ~ COKRaNDI  ®V5"i  "IRNTTOTICEPTS  ANALYSIS  10ENCT 

A B 1 20  WOODHONT  AVENUE 

• BETHESD* ,HARVL*ND  200 i r 

(AtuAMIXMllAAAtAAUMAMi.AAtAiUAAiitlliiAAAlntnAIAAiuAM 

INCLUDE  PROCI 

it  msec  .m  27  Tfrrtmu 
IF  IIPROBIMI<E<I<II  Return  2 
RETURN 
end 


XI I -51 


FUNCTION 

iPROBINI 

• •• 

t 

c 

• 

• 

FUNCTIONI  IPROB  • 

c 

• 

CALLED  Btl  IPHASE, JPHasE  1 

CALLING  ARGUMENTS ! • 

c 

c 

• 

PURPOSE  1 

S M - bPt ALTT  I NUET  • 

The  purpose  of  THIS  ROUTINt  is  TO  DETERMINE  • 

c 

c 

i 

• 

1 f 'THE  SPECIAL™  RECEIVED  AN  ARGUMENT  • 

Is  CONTAINED  1 N THE  LIST  OF  SUBSET  | SPECIALTIES  • 

c 

c 

• 

date:  15 
authors : 

*pril  f*  1 » 

M A J J • D * THOMAS, MAJ  J . X . OLSON.MR,  r,L.  BROXN  • 

c 

c 

• 

CONHiNOt 

nT"1  *R* T CONCEPTS  ■“it YS i S litNC T*  - • 

B 1 20  HOOOMONT  AVENuC  • 

c 

c 

• 

— m 

•tTNTSIT*#ir*RTL»NO  70CIN  • 

• 

INCLUDE  PROCl 
I PROS  • 0 

DO  10  Nk  ■ I iNBRPNO 

If  [NBR5PC (W* •tQ,NP*08INTI I IPROBw  I 
1 0 CONTINUE 

RE  TURN 

END 


XI I -52 


■ 


SUBROUTINE  JRHASE I M . N , f I 
C 

c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
t 
c 
c 
c 
c 
c 
c 

INCLUDE  ProCI 

ir  lists  • n t • 1 1 Rrrurnr~ 

1 F I 1PH0B(MI»IPR0B|N|  ,lT.  II  return  3 

RETURN 

enu 


SUBROUTINE!  jPhaSE 

mcro  Arr  bounds 
calling  arguments: 

R - SPECIALTY  INDEX 
N - SPEC | ALTT  INDEX 
I - RETURN  ITA  IS  ALTERNATE  SPEC 
CALLED  FUNCTION!  IPROB 

the  se&ment  indicator  is  set  at  one*  if^it^s^ 

I A nonstandard  returr  results  if  either  m or  n 
is  not  * subset  i specialty 
OAte*.  15  APRIL  T* 

authorsi  haj  j.d*  Thomas, haj  j.w.  olson.hr.  r.l.  bromn 
COHmaNdT  U.5i  ARRT  " 

B l 20  NDOUMONT  AVENUE 
BETHESD* (MARYLAND  2001H 


I 

XI 1-53 


r»nr*niorjr»nn  rt  n 


subroutine  keyarc 


SUBROUTINE!  KEYARC  • 

cilleo  by t ni in • — 

CALLING  ARGUMENTS:  NONE  • 

crtiEO  routine?  tPH»sE7JFwinft ■*— 

OUTPUT  FILE:  - 9 - OOEU*UUol>  • 

PURPOSE!  **ARE5  T"t  RET  ARC  Rtt  A Tl  0NS19TP  CONSTRAINTS.  • 

date;  is  April  7*  • 

AUIH0R5I  MAJ  J.UY  THOHAS.HTJ  J.R.  OLSON.YTR.  W,Li~»ROWN A 

COMMAND!  U.S.  army  concepts  ANALYSIS  AGENCY  a 

*TZcr  wooomont  avenue  • 

BETHESOA (MARYLAND  2U01A  • 


C 


c 

include  proci 

c 

c 

FORMAT  5TITtMENT5 

TIT 

FORMAT  ( 1 A i • L * i j2  i J 

ifjjgRaoe.lt. 3i  Return 

* • FET  ARC  E0NST#.OR^r*RjWHERe  M »LTJ  N 
N5PEC*  ■ NSPEC  - l 

CALL  I Phase ( m ( a i Oo l 

DO  1 0 1 N • MM.NSPEC 

"CALL  IPMASElW.tlOt 1 * SEGMENT  Check 

call  JPmASE(M,n>»I01 I 

lEIJGRADC  .67.  Jl  G®  TO  SO 

1 F ( yuT IL I M.N 1 . L T . 8 8 ( *Rl TE 1 9 , 1 0 1 NbRSPC I M 1 (NBRSPC ( N 1 

so 

• NBRSPCIMI ,nBRSPE(NI 

60  TO  101 

IFIUTILIM.NI  . L T . 8 8 I « R I T E 1 9 , l 0 1 Ne R SPC 1 M 1 i N 8 R S P C ( N 1 
!r(UTlLrM,NI.EB.BB.AND.UTlLIN,MT,LT.B81  HR I TETR i t 0 1 

• NBRSPCIMI ,nBRSPC|NI 

I^T 

lOU 

CUNT  1AJ0E- 
CONT ! NUE 
RETURN 
END 

XI I -54 


subroutine  lOcOL 


subroutine:  locol 

ctlce6-bti  Him 

calling  arguments:  none. 

CALLED  ROUTINES!  LOCOLC  ,LOC6LL  iCOCOLS,  IPHASE  ,'jPHASr 
purpose i The  purpose  or  this  routine  is  to  determine 
which  locol  subroutine  to  call  based  upon 
The  value  or  jgrade.and  to  write  statistical 


number  or  pRErtRREo  specialty  pairs 
inprefi  is  Also  computed  and  displayed. 

The  number  or  PRErERRED  SPECIALTY  pairs 
inprefi  is  also  computed  AND  DISPLAYED. 
datei  is  april  ;a 

authors]  "tj ■jvdt-’t hb m rr, mtj^jtv; "orsoTr.-mrr irrL'i  trow 

COMMaNDI  U,S.  army  CONCEPTS  ANALYSIS  AGENCY 
•170  WOOOMONT  AVENuE 
BEThESD* .MARYLAND  2U0|R 


include  PNocI  — ' 

>AA  urITE  all  constraint  information 


IE  IJGRADE  . ST . Al  GO  TO  50 
DO  »0  M.| .NSPEC 

DO  80  N»  I,  NSPEC  - ---- 

IF  IYUtlLIM.NI  .LT.  BBI  NPREF.NPRLF*I 

IF  IYUTILIH.NI  .Ea.  BB  >AND.  yUTILIN.HI  ,lt.  bb I npref »npref * 1 

continue 

Continue 

GO  TO  200 

DO  ion  * • T,  NSPEC 

CALL  I PHASE  I M , * 1 00  I 
DO  1 0 1 N . | .NSPEC 
CALL  I PHASE  I N , § l 0 | | 

call  JPhaseim,n.*ioi i 

IFIuTlLIM.Nl  .LT.BBI  npref  • NPREF  ♦ I 

ifiutilim.ni  iEQ.®8iAND'.tniLnjiTii7Lrf»rr  nppef~«  npref  * ~t 

CONTI NUE 

continue 

1 1 - 1 

I TO  T 2 * IROaCTI I I * IRO"CT|?| 

I T 0 T 3 ■ IRD.CTIRl  * IR0MCTI6I 
ITOTR  ■ IROwCTISl  * IR0*CTT7T  — 

I tot i • l rowct : 3 1 

IF  | ISEG.LE. I .AND.jgradE.GT.3  IIT0T5  • NBRPRO 
IF  IISEG.NE.II  |ToTB  • ITOTS  ♦ I 
IT  • NPREF/? 

IFIJGRAOE  .LT.  31  IT  • 0 

ITOTA  » !T0T1*!T0T2*tTDt J»ITDTN»TT0rS  « T1  "*  TT 

WP*  TE I * . I I I SEG.jBRADE 

fob.mati  • iseghent  number  for  grace  eoual  to 


RRTrrtrr; 


I T , tTtrri.lTOM.MOIb.ltllTOTr 


■ ~r 

• 

!5X, 

ISx. 
15  8. 
• 

"T  e j — 

* objective  function 
' FLOn  conservation 

r i TSi  r 

• • IS./ 

• 

' RESuIREMtNTS  s TOTAL 
IHISHER  GRADE  . • , !S,«  | • ,/ 

T rrsi — 

• 

lax# 

ISx, 

tr; 

CUNTROL  uF  T-AMCb 
' CONTROL  OF  Y - ARC S l PR OhO T E E S 1 

'".15./, 

•.15./. 

• 

I 5x  • 
I5x. 

* CONTROL  or  INPUT 
' a e t arc  Relationships 

’ nvrr~t — 
' • 15./ . 

I Sx  • 

~t  tOTAL  CONSTRAINTS 

■'TTS.Tr/TT 

--  NSPEC 

rr T~rsris~iTu'«  z i jspcc  » nspel  - nbrpro 

NRITC  I 6 • 90  3 I J5PEC . N V R S » np  h t F 

formatiis*,*  nu«»er  or  specialties  v»v*r  -*■ ttsth — 

• ISX|'  NUMBER  or  TE*RS  EQU*L  »,IS,/, 

• is*,*  number  or  preferences  Eou*i  T7rr:7nrHrr 

IF  ( JGRADE.GT, Jl  CALL  LOCOLS 


UBhoUTINE  lOCOLC 


c 
c 
c 

*~r 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

include  proci 

INtEGER  ArcID 

c 

C ' ~~  • A • F ORm  AT  'ST  * ' EHE’N  Ts6«  • **  “ 

c 

|0  FURMaT  I * COLUMNS ' I 

2 0 FORMAT  (Mx,.W*,jB.MX,'w0*1J2,AM12X,FI2.913XiAliJ3,AM,2X.Fl2.9l 

30  Format  |M*,.wT,j5.Mxi'N,,J3,AR.2x,FIZ.9.3X'.A3.J5,Z1I,fI2.9) 

MO  FORMAT  I MX  , *w»  , jS  ,MX  , 'RES'  , J5.2X  ,F  | 2 • 9 ,3X  , Al  , J3.AM  ,2X  .FI2.9  I 

G®'  FORMAT  IGA,  *W»  .jriRX.TTOTRUTM  » iZA.F1Z.9I — ~ 

M6  FORMAT  ( Mx , • w* , jS ,mx , *uR ' t 2 J2  ,mx  ,F  1 2.9  I 

SO  FORMAT  |MX,IW*,jS.MX.'N,,Jl,J2|AM,2*irl2.9(3ll*J.JS,RX.Ft2.9| 

60  FORMAT  I MX , t xooo'  i J2 |MX i ' RO'  , j2 , AM , 2X ,F | 2 . 9 I 

70  format  i mx  , 'iood*  . jz  >mi  » *no»  , j2  , im  ,2x  if  i z*9 , 3X.«iro»i  jz,  am,2x, 

IF12.91 

BO  FORMAT  I RX  , > X00O*  , J7i  GX7TTT  ,37  VJ2  ,191  zt  ;ri  z;tt 

90  FORMAT  (MX1<W*iU5iMX,>MO',JJ,aM,2X,F12.9,3X,*NO'iJ2.AM,2X,F12.9I 

100  FORMAT  IMX,IX',J*|MJ,*N‘,J|,J2,AM,2XiFI2.9|3Xl*N»iJl,JZi»M,2X, 

I F | 2 • 9 ) 

110  FORMAT  IGa,  , J8.GX.'N‘  , J|  , JJ, AG .2A.FIZ.VI 
I 2 0 FORMAT  I MX  , <w* , j5  ,MX I A3  1 JS , 2t ,f  I 2 .9  1 3x , A3  1 J5 ,2X ,F I 2 . 9 I 
I 30  FORHAT  I M X , T T > . J®  ■ 1 X , » R*~;  JI  , JZ1XG  i 2FTT ETTP-.  3n  *W*  t~JT  PJ2  1*1  iTT-r 
IF  12.91 

I M 0 FORMAT  I M A , • T < , j6 . M J , *N' , J1  , J2 I am , 2X tF I 2.9) 

IMS  F0RmATI'T«,j5,|A.G||19XiJB,JH) 

c 

c 

c AAAa.i  GENERATE  COLUHNS  CHAFTER«»V»9-« — 

c •*••••••  ••••••• 

WHITE  19.101 

c ••••COMPUTING  COEFF  FOR  INITIAL  FLOWS 

c ••entries  for  xooomm.. 

00  160  M. | ,NSREC 

c »«GoIb*»  — 

WRITE  19,601  NBRSPC I M I .NBRCPC I M | .Name  I 3 1 .PLUS l 
IF  IVALIOIM) .GT.OI  GO  To  160 


• SUBROUTINE!  LOCOLC  • 

*  CALLTCiTTrom 1 

CALLING  ARGUMENTsi  NONE  • 

CALLED  ROUT  t NES I VALID  A 

OUTPUT  FILESI  • 

B - OOSAP1JDOB.  A 

9 - ODLSAUOOI.  * 

purpose f orrrRrs'xuDOHr'PUH-p.  bum»n-,  a»w-b  and a 

T-M-M  arcs  for  c p t segment.  • 

DATE  I IS  APRIL  76  A 

AUTHORS!  RAJ  J.D.  THOMAS, maj  J.w,  OLSON.HR.  R.L.  brown  • 
COMMAND!  U.S.  ARMY  CONCEPTS  ANALYSIS  AGENCY  « 

B I 20  WOOOMONT  AVENUE  A 

OTTHESDA  .MARYLTRU^JTIO-n A 


XI 1-57 


• »»T!a*Ti;TNC»*  - 


IF 


WHITE  19,701  NBR5PC I M | ,NBR5PC I M | ,NAME ( N I .CPTREM ( 2 I (NBRSPC I M | , 
NJNEIHI  .CPTRETFU) 

IF  ( ICHfi,LT.2>  SO  TO  140 
I LAST ■ I ChG- 1 

I lCH&.GT.NVRSl  ILAST  • NTRS  - l 


“DTTl'So  J- I»TX*5T 

*•  J*2 

c 

• * N J LlNc»* 

WRITE  19,80)  NBRSPCIMI  ,JiNBNSPC(MI  .NAMElHI  ,CPTrEM(R| 

1 50 

CONT I NUE 

1 60 

CONT 1 NUE 

C»*»«»FOR  INCUMBENT  »RCS  IN  TO*  TO  TO 
C 

DO  I T 0 M ■ I .NSPEC 
IF  IV4LICIHI •°T.OT  GOTO  170 

4RCID»NBhSPCImI»100*NBRSPC(M| 

z " " 4»A»»W0  G0t0»4 


— c 


(To 

C • • • 

c 


TTI90 GU20»» 

WRITE  19,901  »RC ID  .nBRSPC I M I ,NAmE I 3 I ,Ml NUS  l (NBRSPC < M I (NAME  I 3 I , 

I PLUSI 

••WO  LINC.*  ••NO  TRE9»» 

WRITE  19,901  *RC ID (NBRSPCtH I ,NABE» W I .WINUSI lN«RSPC<Nt (NAME T*T i 
I PLUSI 

4 • 4 TOTAUTH  4»» 

WRITE  I9,RS|  4RCI0, PLUSI 

continue 

••FOR  INCUMBENT  ARCS  TO  ---T.ICHG  i CPT'S,  LT  B TEARS  OF  SERVICE 


I 


I »0 

I’O 

c 

c*** 


I L A s T • MIMNVRStlCHGI 

UTT  T9tr“0wl  , IL»51 

K • J*  1 

00  ISO  M« I (NSPEC 
IF  IVALIDINI .ST.Ol  SO  TO  ISO 
ARCID»nC4lOOOO)*NBRSPCIHl»IOO*NBRSPCtMl 
• *NA  GO Z 0 • • • • N J SO  20 • • 

t K , I 

NAME  I 3 I , SUPVLO I J I 

••NJ  TRES»«  ••NK  LINC** 

IF  U.NE.NTRSI  WRITE  19,100)  A R C I D , J l NflRSPC I M I , N A ME | 2 I , 
PLUSI , K ,NB»SPCT«) iNAbEIRI (MINUS | 

••NK  L 1 NC • • 

-ff- tu;TQTN9-R»T-wRT-rt  tTiTtCTT 
MINUSI 

continue 

cont i NUE 


•for  incumbent  arcs  cpT/m»j  w/se  b tears  of  service 

~ DO  *T0  UrT", ntRs 

KwJ-l 

DO  200  M. I INSPEC 

ARClD.IK»lOOOOI*NBRSPCIMl»IOo*NBRSPCIM| 

• •NK  GOZO*»  • • N J GO  Z 0 • • 

"RUE  ( 9 , 1 3 U ) ARC  ID  ,K  ,NB«SPC  | M I .NAME  I 3 I ,MJ  NUS  1 , JiNBRSPC  I M I , 

NABETTr.'SORTHTTUT 

••NJ  TRES**  **NK  CINC»» 

IF  U.NE.NTRSI  WRITE  19,1301  ARC  I D , J . NBRSPC  I B 1 , N AME  t 2) 
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i rtusr.'r.Nfrf^sFcttTMittirrrsiiTifnvsi 

c .»n*  c | nc • • 

IE  (J.Ea.NTRSI  WRITE  19,1901  ARCID,K,NBR5PCIM)  .NIHEIS)  , 
l M|NU51 

200  CoNt i NUE 

2 I □ CONTINUE 

_ 

C T-ZErO  PRIME  VARIABLES  - wommnn 

c 

00  210  N ■ 1 iNSREC 
UB*NT»0 

00  200  Mil  , NSPE  C 

c »»ir  should  'Utrf  rxisricouHT  TunAinrs  ttb  on  wttt  innoiRpn'-T 

IE  IVuTILtM|NI.E«»9<»|  00  To  2»0 

C *»»EOR  FIELD  GRADES  M TO  N arcs  DO  NOT  EJtST  IN  T-2ER0  PRIME 

IE  lM.E8.Nl  GO  TO  2 TO 

IE  I | rUTlL  IH.NI  .E8.Be  I .AND,  I rUTIUN.HI  ,Gt  .BB  I I GO  To  290 
IDOUT«( NBRSPC I N I *100  I *NBNSPC ( Ml 

ARC  IB.  (NBRSPC  IHr*  I001*'rB-R-51»CTEn — 

C ••OOZO**  ••GOZO.* 

WRITE  19.201  ARCIO.NBRSPCIH) ,N»HEIJI .HINUSI , NN , NBRSPc I N I , 

I name  I 3 I .PlOSI 

C ♦«»»TRE'a»»,» 

WRITE  19,201  ARC  ID .NBRSPC I N I .NAME  1 2 I i PLUSl 

C «*i*ToTnjT»nirir»  

wR | T E I 9 » N5 | ARClO, PLUSl 

C A.CHECE  IE  COMSAT  ARMS  SPEC  I AL TT I 8» I 15  INVOLVED 

IE  I TUT IL I M >N  I .NE« BB  I GO  To  270 
IE  ITuTILlN.MI.GE.BBI  GO  To  290 
NRAT I 0*TUT 1 L I N ,M  I / | 0 

MRATIBBTUTtL IN|"l*NMATIO»rU 

LAST60IN.M  I.NRAT IO.TTOUR I N 1-1 
IE  (LASTgOIN.MI.GE.NtRSI  LASTGOIN.HI.NVRS 
REMAIn.I  . 

VALUE.REMAlNAII.-ll./lYTOURINIWNRATIOIII 
C ‘.VALUE  • 0 IE  TTfluRINl.NRIf  |0  a|,  ALL  Lt*V£  »T  T-ZeRO 

220  CONTINUE  

11  • MIn  im.ni 

I I . NBRSPC I I I I 

12  . MAX  IM.N) 

12  • NBRSPC I 121 

C 

RATE.  MRATIB  

IF  IN.GT.M  | RAU  • - RATE 
C UR-----CONSTR A I nT  ... 

WHITEI9, R6IAHCID.il, I2.RATE 

IE  IvaLUE.Ne.O. I Go  TO  220 
IREMX  ■ REmaIn.IOuO 

C * • A Rf  SO  N RTin 

WRITEIO,  IRSI  IDOUT.NHATIO.MRAT  |0,TT00R|N|  .TTOURIMI  .ARclD. IREMX 
WRITE  1 9 » RO  I ARC  10, I DOUT  .REHA  IN 
UBKNT.UBXNT ♦ I 

go  to  2ou 

220  continue 

t »c(bc** 

WRITE  19,20)  AHC|0,NBRS'rINl,NAMEl5liVALUE 

oen.|Ytounini.nratioi-| 
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1 


NJH«DE  N- I 

IF  INUM.LEtOI  40  To  280 
IEND.HUH 

IF  I lEND.&E.NYRSI  IENDrNVRS-| 
IOOUT.INBRSPCINI  AIOOMNBRSPCIM) 
idnext*idout*ioooo 

T»EH»IM*r. 

VALUE  1 rREM*  IN*  I 1 . / I TTOURI  N MNR»T  10  I I 


VALUE  2-V*LUE*SUR  VMM  | r*  1 1 . -KyW/OEK  ) 

c ••••RESO  N «••••  • • • RE  5 1 N M9*A» 

I V A l l A • VAlUEI*1000. 

WH  1 TE  I * • MS  I IOOUT ,NRATlO,HRATlO*TTOUR(N)  , Y T OUR  1 h I # ARC  1 D i 1 V AL  1 X 

« VALUE2*>UUU< 

WH  l TE  < 8 , MS  I 10NExT,NRAT|0,MR*T!0,yT0UR|N|(TTOUR(M),»RCID,1VA12« 
WRITE  (9,1*0)  ARCtOiRE5,IODOTiVALUn  iRES,rONEXTiV*LOE2 
00  260  Jr l . I END 
FRaCTrNUH/OEN 

VAlUErV*LUE*SUBvhiij|«FRAcT 
IF- I J,L8. I NTHS* 1 ) ) 40  TO  JNO 

lDOUT.(lj*l)«lOOOOI*NBR5PC(N|»IOO*NBRSPC(MI 

VALUEMV»LUE*5URVHII  J*1  I 

VAlUE2"VALUE«SURVhI  ( J*  1 )•(  l • - ( NUN- l 1 / i DE  N - 1 ) I 
|D.J*|00*NBRSPC(N) 


C •••CINC9*  RRRRES  ••• 

—— — IVTCT*"*  ~V*lUE2»IUUU7 

WHITE (8. MB  I IOOUT ,NRAT I 0 , MR  A T I 0 , Y TOUR  I N | ,TTOUR(H| , ARCIO. IVAL2* 
WRITE  t’lJO)  ARCIO,  IDiNA*Et*)TVrL«t,RtSitU00T,V*tUt2 
40  TO  2^0 

2 H 0 WRITE  I9.&0I  ARCID.J.NBRSPCINI  ,NAME(SI  .VALUE 

«t)  TO  >00 — 

2&0  OEN»OEN*I 


260 

2?0 


' 2*0 


2»0 

TOO 

110 


NUHRNUW  I 
COnT INUE 
SO  TO  300 

HRAT|o«TuTlL(M,N|/lO 


LAST40(N,M>r(NRAT10«YTOUH|NI 1-1 

IF  I L AST401  N ,H  1 .GC  ,NTRS  I L A ST  SO  ( N , H ) «NtR* 

REM  A 1 NR | , 

VALUE*REHAlN»tI.-tI./lTTOURtNI »NR AT  10)  ) 1 
40  TO  220 

T«Luri*vTLOERStrwv*nT  n 

iDOUTw  I NBHSPCI Nl • 100  I *NBHSPC( M I 
ionextridout*ioooo 

•••HESO  N M •••  •••RtS|  N «••»•• 

IVALIA  • VALUEl*lO00. 

WH I TE I 8 , MB  I IOOUT ,NRAT lO.MRAT lO.TTOUR(N)  , T TOUR (M|,»rCID,|VALI» 

~IVX L 2 * « VALUED*  I 000, 

WR I TE I 8 , MB  I IDNExT.NRaTio.MRaTIO.vTOURINI.TTOURIMI.aRCID.IVALIX 
WRITE  1 9 , I 20 ) ARC IOiRES , IOOUT p VALUE iREJl IONEXT , VALUE  I 
40  TO  300 

UBXNT.UBXNT*1 

LAST40(N,M)r-1 

CONTINUE ~ " 

roNT INUE 
RETURN 


END 
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nrtn 


c 

c 

c 

C"~ 

c 

t 

c 

c 

c 

C ' 

c 

c 

c 

c 


c 


c 

c 

c 

10 

20 

30 

NO 

NS 

so 

60 

il 

68 

c 

c 

c 

z 

c 

c 

c 


c 

70 

c 


SUBROUTINE  LOCOlt. 


SUBHOUT|NE|  LOCOlL 
CHICO  -ffTt-  LOCOL  — 

calling  arguments:  none 
CALLEO  ROUTINES!  NONE 
OUTPUT  FldSI 

» - OOEOAUDO! . 

8 • OOSAPuOOSi 
PONPoSn  -OtF  INES 

Tor  lt  segment. 

OATEI  IS  *P*IL  T* 

AUTHORS!  MAJ  J.d*  Thomas,  HAV'  J • N . OLSON, MR,  r, 
COMMAND!  0,S,  ARMt  CONCEPTS  ANAtTStS  AOtNCT 

8)20  rooomont  avenue 

»rTHCSOA  jMIRTt«W7TTt»TN 


L.  BROWN 


include  proci 
integer  ARCIO 
real  ltlpt 


FORMAT  STATEMENTS 


format 
format 
IFI2.3I 
format 
IF  12.31 


I ' COLUMNS ' I 

I R« . **000* I J2|RX  » 'NO* i Jt  i AR,*«  Fft 21 3 1 1*1 *N0* , Jf , *N*Mt, 


tNJ  ,*»•  ,-jSlN«  |*N‘|  Jt  i 


FORMAT  (N»,«J«,j5,N*,.N,jJ|,J2lANl2XlFt2.JT 
format  i nx , • xooo' , J2 , nx t ' Tot auTm  ',2»,fi2.ri 

FORMAT  |NX,<Tt,j5,Nx,*N,,Jl,J2IANl2XlFI2,3,3ll*N»,J|,J2|AN,2Xl 
I F I 2 , 3 I 

Format  m,ir' , jS(nxi  ♦w^t  Jr? JTi«Ri7»rf  T2.01 

FORMATI*XU',2J2|1*.NX,»»,,000'1J2>JNI 
FORMAT  I »T* , J4 , I * FNX , »000» , J2 , JN I 


• GENERATE  COLUMNS  CH AP Tl R •••••• • 

ii.Mifx  — ititm Rm»*» — 

WHITE  I » l I 0 I 

••••COMPUTING  INI T | *l  FLOWS 

••entries  for  iooomm«» 

00  70  M ■ j , nsPEc 

REMA | n.  I ,-prmT I I I 

• • goto*  • — ~wino~m~  tl  mc  • • 

WRITE  19,201  NBRSPL I M | .NBRSPC ( M | .NAME  I 3 I ,PLUS  I ,N8RSPC I M I , 
I NAME  I N I , REHA  I N 

IVALUl  • REMAIN»|oOU 

WRITE  IR.65I  NBRSPClM) ,NBRSFCIM| ,NBRSPC(M| , IVALUt 
•••  TOTAjTh  ••• 

.RITE  I9.N5I  NBRSPClM)  ,PL0S1  ’ ~ 

C0NT I NUE 
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c 

• ••FOR  tNCUHFT^T  r*C5~T(r 

*»T  ,-FTF^T  TltgUTEWAWTyS)  MI.RKM 

oo  90  j«  i ,kiy«s 
R ■ J*  1 

DO  80  H • l (NSPEC 

ARC  |D«( k« |OQQU  > ♦NBRSPC  Ih»MUO*NBRSPC(M| 

c 

«*N* 

WRITE  (9,30)  ARC  l D 

••Nj  G020** 

,K,N8RSPC(M)  »NAHE(3)  .H1NUS1  ,J,NB«SPC|H)  # 

• •NR  L|NC»« 

WHITE  19,90)  ARCID,K,NBR5l>ClMlTN*MEm  .HINU5I 
IF  IJ.EQ.NTRSI  GO  TU  80 


REH»In«SURVL0(J1»I|*-PRHTIJ*||I  

LTCPt.SURVl-OI  jji(PRrtT(  J * II  j 
• *N  J TRE9**  »»Nj  LINC«* 

WRITE  I9.J0I  ARCIO,  J.NBrSPCImI iNAHETZ)  .TLUS1 .J.NBRSPCIHI , 


c 

• •nj  rnrt*v 

IF  (J.GE.lCHGI 

WRITE  19,101 

aRCIO,J,NBrSPCIM|,NAMEISI,LTCPT 

80 

IvaluI  • LTcpt.IDOO 

IF  IJ.GE.ICHG) 

WRITE  18,681 

ARCID.NBRSPCIMI , IVALUI 

CONTI NUE 

90 

CONT 1 NUE 

C******FOR  INCUMBENT  ARC  TO-TiNTRS  -CPTiS  LT  8 YRS  SERVICE  -Y-H-H«» 

c 

00  110  J*l .NYRS 
rPJ-1 

DO  100  M»l»NSPEC 

• •NR  GO  2 0 • • • • N j 6020** 


100 
1 10 


WRITE  19,501  IRCIO.R  .NBRSPCIH1  tN*WEI  3T  .RTTIUSI  , JiNBRSPCTYYT  , 

1 NAME! j| .SUPVHl ( Jl 

REM* In-SURTHI I Jl »CPTREM( Jl 
••Nj  TRE9*» 

Tr-  jn ' E5--D)  BRI  TE  I T-,401  »R  1 1 U i J , NBRSPf  IHT  .NiTHEt  2 ' *PLU5l 

IF  (R.ES.Ol  GO  TO  100 

*»hr  cjttc*»  rwwj  r«ro** 

IF  IICHG  tLT • NYRS  ,*ND. 

• J.EQ.nVRsP  write  19,501  *RC  I o • 1 .NBR5PC  I HI  .NEHE  TTT  i 

I M!NuSl,J,NBRSPCIMl,N»ME(ll,P|.US| 

HEM*TjTsuRVM?  (JmCPTREm?J  I 

••NR  C!NC»*  »»NJ  CtNEw* 

IF  IJ.GT.lCH6)  WRITE  19,501  » H C I 0 , R , N BR SP C ( M | , N *ME I 5 I , 

I NINUS1  , J.NSRSPCIMl  ,N*ME(S|  , Re  MAIN 

• •NJ  C I NC • • 

••NJ  T RE  Q • • ' ••NJ*  CRE9* 

IF  tJ.GT.lCMGI  WRITE  19,501  *RC  I 0 , JjNBRSPC  ( *1  , NAME  T *1  ,PL  US  1 i 
I J.NBRSPCIMl  ,NAMEI  I I .PLUSl 

• •NJ  TRE  0 A • 

IF  IJ.LE.ICH6)  write  19,601  » R C I 0 , J . NBR SP C ( M I , N ARE t 2 I , PL  US l 

CWrTTTOE 

CONTINUE 

RITOrN 

END 
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SUBROUTINE  tOCOLS 


c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUFBoDtlUn  LOCOES 

CALLED  BTl  LOCOl 

calling  arguments:  none 

CALLED  ROUTINES!  I B I T S , SE t , | PH ASE . JPH»S t , I BN  OB . OP  T 

output  ficesi 

M • OUSAPUOOS. 

» » OPSAPUOO»« 

9 - OueqauDOI. 

PURPOSE  I DEFINES  IOOOH .NOR-H i»ON-H , AND  A*N-H. 

PRODUCES  UPTIONAL  OUTPUT  f OR  INDICATING 
• HEN  LAST  of  T»0  POPULATION  |S  RE  ASS  I 6NED 
From  spEcialtt  m.  aooitjonallt  produces 
wtixUatiun  RATTP,TWR-LETrertT,rNa  rcnjcTTONiL 
Relationship  data  for  input  to  uat»  rases. 
DATE)  IS  APRIL  7» 

AUTHORSI  m»J  J.U*  ThOMaSiHaj  J.N.  ULSoNiMH.  M.L.  BROPN 
COMMANbl  U.S.  ARMY  CONCEPTS  ANALYSIS  AGENCY 

iuo  hooomqnt  avenue 

BE  THESB»i  NATTY!  ATroTPOTR 


NCluUL  PnocI 
include  PROc2 
||  .EGER  arcid 
dimension  l5ave<soi 


c 

C •••••FORMAT  STATEMENTS***** 

c 

|0  FORMmT  i*columns,i 

20  format  IM»,'«',jS,m,>N',JliJ2iAN,2*iF12.'»i3*i»liJlij2i*‘<i2A, 

JO  FORMAT  IRA,>»',jS|M«i'»0',J2,AMi2A,FI2.9,3A,Al.J3iAM,2AiF 12.91 

90  FORMAT  I MI, «** , jS, MI , »n' , J3 , AM ,2*,r l**9, 3Xi *3iUS,?I ,F12»9| 

Ml  format  ( M»  , i»i  , j5  , mi  , •!•  ' , J3  , am  . 21  ,f  l 2 .9 , 3X  i *3  , JS  i 2«  ,F  l 2 «9  I 

M2  format  I Ml , IH« , JS.MI , • *• , JJ, AM i 21 ,F1 *«9 ,31 .•oBJECTiyt ,2*  tF J2F»| 

MS  FORMAT  | MX i *H» . j5 , MI | • TOT AUTH  '|2«,FI2.9| 

so  format  i mi  , , js  ,mi  r«iT' i js  ,RiiFir;-»TnTTT  . 37i*MTrrirTrrR-r 

M A FORMAT  I Ml , , jS ,MX , *uR'  .2J2 , MI ,F  l 2«9 I 

fcS  FORMAT  IISI.'LAST  EItT  ’ear  POINTS  FOR  GRADE • i I 3 Vt , »D  SPECIALTt*, 
« • NOTtl  P09 I T | VE  VALUES  INDICATE  LAST  TEAR  KHEN  T-0  POPULAt', 

• 'Ion  departs  a specialtt  • i 
70  FORMAT  I I a ,51 .S0|2  I 

bo  format  t mi  , fw«  , js.Mri »n*  , ji  , j2,  ARijnrrTJTTTrriri-os.inTiET^ ttt 

90  FORMAT  I MX , • 1000* , J2|MI t 'MQF , J2 , AM,2X  ,F | 2.9  I 

|00  FORMAT  I MI , , JS.MI , A 1 I J5 , MI ,F | 2.9 , 31  , A I , JS ,MI ,F 1 2,9  I 

I I 0 FORMAT  IIHII 

1 2 I Fu«maT(»I*,jS,|*,MI1,9I,J5,JM| 

I 2 2 FORMAT ( • T • ,j5,  IXlMI  | , 9 X t J S , j m i 

129  FURmATI • w • ,JS, IXlMI 1 T 

c ••.,.#  generate  columns  Chapter******* 

c Mltllil  *•**•  »•••••• 
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wwttt  TTrrtn 

C ••••COmPuT  1*G  COEFF  FOR  INITIAL  FLOPS 

c ••ENTHIE5  fp*  eooomma* 

DO  |R0  M.|,NSPEC 

C ALL  IPm»SE|H,«MOI  « 5E5MENT 

C ••GOTO** 

i#nr  r?.~*oi  NSN5FCT’'TrSBUs^CIH|  .NAHEI  JTiRUISI 
IF  I IPROBI  N|  . IjV.O.  ANO*  1SEG.LT  .2  I 
C • • • • • *08  Si • • • • • • 

• .RITE  (9,90)  NflRSPCIMI  iNBRSPCIMI  |NAM£i*I  .PLUSl 

jio  CONTINUE 

c ••T-ZERO-PR | ME  V*R I ABLES-«OMMNN»» 


C 

c 


c 


C~~ 


00  120  N ■ 1 , NS^EC 
CALL  I RH A SE ( N • * 320  I 
ub*nt»o 

00  no  MAllNSPEC 
CALL  |PHASE(M>»3I0I 

rrct  jrw  rstTwn»rrrnr» 

• • I F SHOULD  NOT  t I I S T tCOUNT  TORARDS  UB  ON  NfcSET  L A $ T GO  I N , M I • . | 
IF  IUTILIR»NI.E8«TT)  GO  to  290 

•••FOR  FIELD  GRADES  N TO  n ARCS  DO  NOT  EJIST  |N  T'ZEHo  PRIME 

ir  ih.eo.nt  go  to  290 

IF  I I UT IL I" |N I .IS- 88  I . anO.  I UT IL ( N ,M I .G£ .88 ) | GO  TO  290 


*RCID«(NBRSPC|M|»100|»NBPSPC(NI 


•»GP20*«  ••G020»» 

■RITE  (9,301  ARC  I D .NBRSPC ( M I ,NAME(3I  |M|NUSt  , NN  , NBR5PC ( N I , 
I NAME I 3 I .PLUSl 

IF  I JGR AOi »t8. A | GO  TO  |S0 


••••RCSO  N H •»•  

»H|TE  ( 9 , NO  I ARC  10  .NBRSPC ( N I .NAME  I 2 I .PLUS  I ,RES , IOOUT ,PRMT ( I I 
I PR  MT  ■ PHMTI I 1*1000 
IR  • TUTlLfM.NI 


IFIIR.rU.88l  IR  • TUTILIN.Ml 
IRATIO  • I R / 1 0 


JRRTTO  g~PT"»  ~TRRT  109IO~  — — 

»R1 TE I »• I 22  I IOOUT  . IRATI 0, JRAT lO.TToORIN I .TTOURI MI .ARC  10. IPRMT 
SO  TO  ISO 

C ••••TREQ**** 

ISO  RR1TE  I 9 , NO  I ARCID .NBRSPC ( N I ,N»«E 12  I .PlUSI 

C ••••  TOT*UTH  •••• 

- ~r»o — irt t5to.i«iir-w»3-TT  »*riu.Mt«Si- 

IF  I 1 SEG.LT • 2 • AND* 1 PROS ( N I . GT .0  I 
C •••  UBStS  •••  •••OBJECT I9*PP 

• "RITE  ( 9 , R 2 I ARC  ID .N8RSPC I N I .NAME  I 4 I .PLUSI  .PLUS  1 

C 

C ••CHECK  IF  COMBAT  ARMS  SpE C I *L T T ( 8 8 ) IS  INVOLVED 

|P  ( OT  tc  ( M rirt  Ffrr.  8«  I SO-TtlfT* 

IF  (UTlLIN.MI .GE.Bb)  GO  TO  290 

NRAT|o»UTILIN,M|/Io 

MRAT|o»uT|L(n,M)-NRATIO*IU 

LASTGOIN,Mt»NRATIO«TOURlNI.t 

IF  ( L ASTGO I N , M I ,GE . NYHS | L AStGO ( N , M I »NrRS 

remain  ■!  ,-prptt  II 

VALUE«REMA|N«(1.-(1./(TPUR(N|»NrAT10II| 

170  C 0 Nil  NUE  U 8 march  i»7£ 
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11  a H|N  IM,N| 

t | ■ N8RSPC 111) 

12  a MAX  |M,M 
12  a NBRSPct IZl 

in  ft  • hrttto 

IF  IN. at. Ml  RATE  a . RATE 
a, a UR---— CONSTRAINT  **» 

NR  I TE I ».RA IxRC ID.  I 1 , I 2 ,RAU 
♦ayALUE  a o IF  T(JUR  I N I »NRA  T I 0 -I.  ALL  LEAVE  AT  T-2ERO 
if  (value «Nt«o«  i ao  ro  iso 

IRTmx  • REHaTNJTOUO 

MH  I T t I 8 , 121  I 1 D 0 U T |NRATIO|MRAT10|TOljRINI  . T 0 U R | M I . A R C I D . IREmx 
INDElalN-l laNSPEC'M 

aaaRQ  N Maaaa 

IF  IIBITSlKtTREilNDLll.Nt.ZI  NR I U <»,SOI  ARt I D 1 1 0°UT , REm A I N 
UBKNTauBKNt-l 

50  TO  JOB  

IF  I JoRAOE.iU.AI  50  TO  l«0 
VALUE |aVALOE*5URVLOI | I.RRMTIjI 
100UTa|D0UT.|000U 

..NO  L INC***  A A * R E S I N H • • a 

"R I t E I9|R0|  ARCIU.NBRSPCINI .NAMEIRl  iVALUEiRIS, IOOUT.vALUEI 
IRRmT  • VALutrAIOOIT  

!R  a TUTILIM.NI 

I F ( lR.Eu.88l  IR  » TUTILIN.NI 

|RAT 10  a t H / to 

JRATIO  • |R  * IRATIOAia 

MR|TCIB,IZ2llD0UT,IRAT|0,JRAT|O,VT0UR|N|,TlOURIMI,ARclD.IPRMT 

GO  TB  ZtfO" 

* *L I NC • a 

.RITE  I T , RO  | ARCIO.NBRSPCINI  , NAMEIRl  .VAL'JE 
UENa  | T0jR I N | aNRAT 10  I - | 

njR.den-i 

IF  INuM.LE'UI  50  TO  ZBO 

' irND'aNUH  - - ' 

IF  ( | ENO • 5E . NTRS I IENUaNTRS-1 
lD0UTatNBR9RCtN|A|0U! .NflRSPC | M I 
IONE*Ta|DOUr.lUOOO 
RE"A|n»I ,-PRMTI  | I 

VALUE|aREMA|N.I  |./lT0UR|N|aNR«T|0l  I 

TALUEZRVALUt • suRTt o « 1 1 »t  tT*rnf«v-t*  i taTtT-Ntmrtrriri 

lNDEXalN-1 l»NSPEC*M 
I V A L I A • VALUEI*l00O. 

MH  | f L I B , I Z I I |OOUr.NRATIO|HRATlO(ToURlNI|TOURlMI,ARCtO,|VALI> 
t V AL  2 * • VALUE2*l000. 

aRITElR.IZRl  ARClO.MRATlO.NRAtlO,ToUR|NI,TOURIM| 

RR  1 TE  I 8 i 121  1 |DNtXT.NRATt0iMBlTt0TT«Ftmt1irTrt1ttJ«HMr1ARCTlri'iTMnrr  

IF  I In ITSIRTYpE . INDEX  I .£5.2  I GO  To  210 
aa.fRn  N M*aaa  >.aR|  N M*aaa 

"RITE  IR.lOOl  ARC  10  ,RR  , IOOOT  , VALUE  I .NN , IUNE XT , VALUE2 
DO  2A0  J* I . I END 
FRACTaNUM/DEN 

VALUE*V»LUE»SUMTL01TI'»TTiiP^M'TT3rt1rrF»«C1 

IF  I J.E8. INTRS-I II  s.  TO  22 0 

lOuUTal 1 J*l I a|OOOOI .NBRSPC INI •rOO»NHRSF^IMl 
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I 


VILUll  (•rnni | r 

V»LUtl*»»tUt»SuRVLOt j*l !•! * .-PRHT( j*| | l»l | • I NUN.  1 1/ 
IDEN-IT* 

Inqex»( * J*l >»nSpec»»2I*in.i i»nspec*n 

JF  I JBR*DF.EB.»)  SO  TO  730 
ID.J.|00*nBRSPC|N| 

— .A.l|WEB« m»ti»n 

• RITE  »«C  1 0 . ID  iN»*e  1 H 1 • VALUE  ,RES  , lOOUT  .*»LUE  I 

IPRHT  • V«LUri*I®00  

IR  • TOT  I L * « • N I 

irun*ts*Hi  ir  ■ nrrmuTm 

IRATI 0 • IR/IO 

JRAIIO  • |H  * 1HRI  |0»IU 

• R|TEIB|l22l  lOOUT  ilRAT | 0 , JR AT I 0 , VToUR I N I , TT0U« IHI.ARcIDiIPRNT 

rwR W PU»»» 

IF  ( I a 1 T s < RtTPE  , UOEX  • .NE.2  I WRITE  (9,i,OI  arCID.IDOUT, 
l VllUE2 

Iv»u2»  • VALUE2*>000. 

TJrTTE  « 8 , I Z 1 1 

• IDOUT  , NR  AT |0»RRATI0|T0UR(N)  , T OUR  I N I t ARC  1 0 , I V AL  2 X 

60  TO  2*0 

•••••••••L1NC******** 

WRITE  «*.«UT  ARCID,  J.IXBRSPCTNt  ,NANE(RI  , VALUE 
60  TO  300 

TY*t  71  ■ v»I.Ut2»IOOO' 

• RlTEI8,|21l  lOOuT ,nRAT|0,mRATI0,T0URIN> , TOUR  I HI , aRCID, |vaL2X 
IF  ITBl’StRTTrtitNOETtiETsTt  60  TO  7 TO 

•••••••••LINC*********  **R  n m*** 

WRITE  t»i»Of  *<KtOiJ,»«BRSp£tN>iR*T*tTTT,T*tWfl»RTi««OTi 
1 V ALUE2 

60  TO  2*0 

LlWC  •••• 

WRITE  t T i OO I »RCtO,  J.WORSpClNt  il»*REtRtrT*LVE 

0En*CEN”1 

NUM»NUR"I 

CONTINUE 

60  TO  JOB 

MRAT | 0“ U T |L ( N,N I / I 0 

W«*TIO»UTlttW.NI'"R»TtO»tir 

LAST60IN,M>»(NRATIO»TOURINI|-| 

IF  lLi5T60<N,HI.6C.NTRSI  L IS  TOO  I N , R TWRVR5 
HEM»  I N. | ,-PRMT I I I 


»»6WERnin»  1 « AW/  | | uwn  | nj  I I w f * I 

60  TO  I 70 

VALUE  I * V AL  OE  *SURVLO  t I F ■ f I »»RR«T I 2 )) 

INDEX. IN-I l«NSPEC»H 

IDOUT. I NBROPC INI *1001 ANBRSPCIFU 

IDNEXT«IOOUT»IOOUO 

WRTTTTR.  TEWT  ARC-IOiWRTTlOlNRXTlO-,  TOUWINTJTOURIH) 

IVA|_3*  • V»LUE»l°00. 

"RtTE !• • I 21  I IDO«T ,NRAT IO.HRXTIO.ToUR INI , TOUR  IN  Fs  ARCtO  |1  V ALl* 

I V A E I A • VALUEI*>000. 

WRITE* • • 1 2 I I I ONE  XT ,NR»T 1 0 , NR A T to , TOUR  I N f j TO»R«Rt  j XRclOi I VAt t * 

IF  I im  TSIrTTPE  , INDEX  I .E6.2  I 60  To  310 

• RITE  I 9 i I Ou I ARC  ID  ,RR , |OOUT , V*LUE .RH • lONEXT .VALUE  1 
60  TO  310 
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7*0 

300 


310 

yto  * 
c 
t 
c 


3« 

330 
C 

c 

c 

331 


C 

C “ 


c 


c 

3*0 

350 

3*0 

C 


uB*nr.tjrifwT»i 

L A S T GO  t N ,N I a- | 

ir  IUB*NT.Nr.NJPECI  so  tD  310 
1 NDE  X a I N»  1 l*NSPEC*N 
CELL  stT  l»f»PtriN0Ex,ir 

continue 

conttnue 


write  out  lest  te»h  e*tt  points  for  eec*  sprctELrr 

IT | | OPT  I 1RD | ,LT. i I GO  TO  331 
■n|TE(»,6si jgr*be 

- " BEf  3 30"  M *T,  H5*rc 

CELL  lPHA5E(Mt*330l 
DO  33S  N«1)NSPEC 
CELL  |PHESE|N,«335| 

CELL  jPhESC|H,N,|33SI 

LS  E V E I N | a MEXOIL*STGOIHiNI  iO> 

continue- 

WRITE  (6.70)  NBHSPC(M I , ILSEVE ( N|  |Na|  ,NSPEC I 
CONTINUE 


• Mi  FOR  m.n  , X OHONi  WHERE  MaN  INCUMBENTS** 

"00  3iO  Jw'ITnTPS"  ■ "" 

X»  J*  l 

00  3bO  Hal iNSPEC 
CELL  |PHESE|H,*3S0I 

CELL  JpHESEIM,H,*35dl  k,  PER  THOHES  15DEC 

ERCIOaXE||OuOOI*|NBRSPCIM|aloOl*NBR5PC|HI 

rnnno** * e bozo  * * 

WRITE  19,201  ERC |D ,K ,NBRSPC I H I iNEME I 3 I ,M I NUSI  ,NN, J iNBRSPe I M I 
1 (NEMEI3I .SURVLOI Jl 

IF  IJ.EQ.NTRSI  GO  TO  3*0 
•**TREG»*  »»L INC*** 

WRITE  19,201  ERCIO,J,NBRSPClMl  (NEHEI2I  ,PLUSI  ,NN|R,NBRSPC|MI  , 

I NEMEPir.HtNUST — 

GO  TO  350 
•••a**. L| NC***»* 

WHITE  19,201  ERClO.X.NBRSPClHl  iNEMEINI  .MINUS! 

continue 

CONTINUE 

WHITE  I 6 , I I U I 
RETURN 

end 
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SUBROUT  INE  LO01»® 


c 

c 

c 

Hi#i* 

• 

itnni 

• • • 

iff' 

• 

c 

— J 
• 

SUBROUTINE  LOD I 

called  byI  main  (IMMEDIATE  RETURN  for 

0-3  * S anD 

BLLOM 1 

i 

• 

C 

c 

• 

• 

CALL  1 NG  ARGUMENTS J NONE 

CALLED  routines:  IBITS,  RES2&* • IPHASE 

, JPHASE 

• 

c 

c 

• 

• 

OUTPUT  FICE5I 

9 - ODEQAuDO! • 

• 

• 

T 

c 

• 

ruKPObt I 

VIF  INL3  \ *-M*N  1 A^D  ' “ t I H lUirr  1 L 1 L N T 9 
APPROPRIATE  CONSTRAINTS  for  COL/LTC/MAJ 

|N 

• 

c 

c 

• 

date:  is 

• twntlfTW • 

April  76 

• 

c 

c 

• 

AUTHORS ! 
COMMAND! 

NAJ  J • D • TH  OH  A S »MAJ  J tM i OLS 
U,s.  ARMy  CONCEPTS  ANALYSIS 

ON  * MR • R t L • 

agency 

Brown 

• 

c 

• 

• I2U  8UODM0NT  AVENUE 

8ETMES0A ,MARTl*ND  20019 

• 

c 

c 

• •• 

include  proci 

INTEGER  ARC1D 


c 

c 

10 

20 


•FORMAT  STATEMENTS* 


FORMAT  IRK, 'A*  §jS,9Xl*N*  i J 1 iJ2*A9i2XtF12.9  » 3 X » A I i J I , j2  » A 9 , 2 X , 
FORMAT  19x,.x,.JS,9Xi,R'.JS.9x,FI2.9,3X,AI,J1,J2,A9,2X,F12.9I 


RO 

c 

c 


IF12.fl 

format  i rx,' i*  . oSinxi**’ , ji  . j2>AR.2itiri7.tv3x“TMrJrir*TM2iTt 


IF  (JCiRADE.eE.3I  return 


H0L02* I 

• »*conputii»o  coeff  for  flows  l £ a v i ns  spec  n++ 


00  300  J.l ,NTRs 
K • Jm  I 

~0O  290  MtlNSPtt 

CALL  1 PHASE ( M . S29U | 

DO  280  *•! (MSPEC 
Call  i phase i n , »28o i 
Call  jPHAsetM,N,*2S0) 

IF  IM.ES.NI  60  TO  280 

tNoexi|A»WSPtC*»2l»IM»l)»N9PEe»N 

N I FOUR*0 

ARC  ID*** I IOOOOl»CNBRSPC(M|»IOOI •NBRsFCCMt 

Tu  consider  those  leaving  spec  h the  first  time 
IF  (X.GT.LASTgOiM.NII  GO  TO  29 0 
•••••IF  NOT  PREFERREOi  THEN  ARC  NOT  CREATEO»»» 

80  TO  280 


• ••IS  M A COMBAT  ARM  I N , M | r A 8 

IF  iutiLin.mi .ne.bbi  eo  TO  so 
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1 


c 


70 

c 


c 

80 

■*0 


C 


C 

ioo 

c 


I 10 


l 


120 


c 

I 30 


c 

I HO 


two  r»wBrr—r»wT  rNvocvtrjr»R — 

IF  I UT  |L  ( M ,N I .OE .88  I 00  To  2 8 0 

M#*T10*UmtH,W)/|0 

NHtt|O»0t|HM,H|-(M«»TlO«l0l 

00  to  00 

NM»T|0«OT|L(N,H|/|0 

~ms  »tvo*utit  tn  -.'"i-MTrrmTc 

ENTER  THE  G021NT*  AND  G020UTA  VALUE* 

• *<•070**  ■ “AASOZOAa 

»R|TE  I T . 1 0 ) A«C I D , A i NBRSpC I M I , NAME | J | ,M] NUS I |NN , J , 

I NBrSPC I* I i NAME  I J I . SURVLB l J I 

IF  I |B I T S < RTTPE , IN0E*  I .NE.2  I 00  TO  70 

••AATReqaa** 

IF  (J.NE.NVRSI  WRITE  I 8 i HO  I ARdU.J.NBRSPCINl  .NAMEI2I  , 
1 PLuSI 


I 


GO  To  »0 

IF  IJ.EO.NrRSI  00  to  60 

•••  W8  M N • ••  • ••  T re  Q ••• 


iJwirr“i»,zor  iRCTB.mTG^HmreTv 

PLU5I 

so  to  to 


•••  HQ  H N ••• 

WRItE  |T. 201  ARCID.ArCID.MINUSI 

IF  I | JORADE .NE • A I • ANQa I J.NE.NTNS I I CALL  RES20R 

1 I J,HXff."R*TtTJ,NIT»ri(n 

LEnGTHwTOUHINIANRaTIO 
K T «F 

IF  ( IfT*LENGTHI  .GE.NvRS)  go  TO  210 
•AATHERE  w ILL  »E  FLOW  OUT  OF  SPEC  N in  FT  i LENGTH** 
FPER»kT*LENOTM 

MOlD|»I *0 

IEnOwLENGTH-I 

IF  I IEND.GT.0l  GO  To  110 

••one  te‘«  touraa* 

N | rOUR"*l TOUR*  I 

IF  1N|T0UR.GT.tT~G0  ‘TO  7U0 

FPE  R 2 *F 
GO  TO  1 H 0 

00  I 2 U N I • | . I END . 2 
KPeR1*F*N| 

«PEH2.hpER|*1 

VALUE  | sHOLDT  «50RVLOT?PlRri  • I T -FRTTt TTPETT EVIT1 

VALUE2«VALUEI*SuRVL0(«PER2I*I  1-PrMTIFPER2*1  1 I 
IF  (INIMI.QT.1END)  GO  TO  130 
•••■LlNC**  •*L[NC**** 

WRITE  (T.lUl  ARCID.FPERl  .N0R5PCINI  .NAPE (R I iVALUEI  .NN, 

1 FPER2.NHRSPCINI  .NAMElHI  , VALUEV 

CONTINUE  

HOl  0 | ■ V *LUE  2 
GO  TO  I H 0 
••L |RC«»a 

«R|TE  I’.IOI  ARCID.FPERl .NBR5PCINI .NAHEIR1 , vALUti 
HOLD  I «V*LUE I 

FPER2AFPERI  

is  there  time  to  r o t a t e back  to  spec  m 

IF  I !fPER2*I I .GE.NVRS)  GO  TO  270 
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L 


. .-d 


I-W  nn  I I t ' ■ i i u » \ ' I i 1 I I V " L.  v - I 

HOL01»V*LUE1 

KPER2«Kf*t»l  * I 

C ••••«£  THERE  aNT  PERIODS  BEToND  KpER2 

l’O  IF  I l*PER2»l  I «OE  l NTRS  » 80  TO  2TO — 

C ••••••  ROUTE  to  spec  n 

H.KPTff?*! 

C **AOD  the  LENGTH  OF  «••• 

KPERakPER’LENGTh 

IF  U.PER  .GE  »NVRS  I 80  TO  270 

I BOOT. I *PER I # I I 0000  I ♦ INBRSPC IW) *1001 »NBRSPC[N1 

holoi*h0coi»suRvloikperi»(  i-phht»fpeR*i  1 1 

VALET!  wHOCOT 

C •••«•  WRITE  OUT  RESTRICTIVE  FLOW  FO*  PERIOD  KPER 

C »**»r”H»n»*»»»» 

InoEK* (RP£R»NSPEC**2 l*(H-i I *NSPEC*N 

IF  I IBlTStRTTPE, INDEXl.NE.ZI  WRITE-  | W * 20  I AHC10.I00UT, 

I VALUE! 

ChIVGTHwTooiTTNTNRiTIO — — 

C •••ADD  THE  LENGT  OF  N • • • 

APER*FPER*LENSTh 

t • * i 5 there  time  to  stat  in  n for  i more  yh** 

k»*»  i 

IF  I IKMLT.NTHS)  80  TO  100 

so  tit  •zFo 


C *»SPEC  N |S  ONE  TEAR  Long*** 

200  idout*irper*idoqoi* IMBRSWe  INI*  roo I • NBRSPC I M 1 


M 


v»luei*holoi 

• **R.*~N«H»»*i 

INDE«.|FPER»NSPEC»»2I*IN-|I*NSPEC*M 

If  I I B I T& t Rt  TPE , |NDE«) .NE.2I  WRITE  I 9 , 2U  I ARClD.lDOUT, 
VALUE l 
F_PeR2»FPER 
SO  TO  l^O 

.•TIME  In  SPEC  N EXCEEDS  NOR  I ZON*"! Ul  NOT  LEAVE  N.«« 

IF  U.EW.INTRS-l  II  SO  To  280 
RLEFTrSURVLOI  JIM  I ,-RRHTI  J*1  I 1 

•*L I NC*** 

• •HQ*  WANT  MORE  L l NC9  * • • 

JEND«nYRS-IK*21 
IF  I lEND.LEiOl  SO  TO  280 
Do  230  L*  I i I END • 2 
KRtRl*F»L*l 

FPERZWFBER  1 ♦ I 

VALUEI»RLEFT»5URVL0(RPeH1  I • I 1 .-PRMTIKPLRI*!  I I 
VALUE2«vAUlEl*SUHvL0|KpER2l.tl.-pRMTIKPER2*in 
IF  I IL*l  I ,sT  . UNO  I 60  TO  220 

•••LlNC»«  •••lINC«*» 

• RITE  19,101  ARClDiFPERl  .NBRSPCINl  iNAMEIMI  ,V»LUEI  iNN, 

FPl R2",1}Bir5PE1  N ( FJATTE  1 1| ) , V1LUE2 ~ 

RlEFT  • VALUE2 

SO  TO  2J0 

•••LlNC*»* 

WRITE  19,101  ARCtb.FPERl , NBRSPCINl .NAHEIr] ,V*LUEI 
CONTINUE 

58  TO  7«0  

• ••F  , S T • LASTSOIMI  ••• 

•••IF  THERE  IS  NO  RESTRICTIVE  FLOW,  THEN  ARC  NOT  CREATED*** 

IF  I ( |bl TSIRTTPE , INDEX ) .Eb,3 I *0R. I iBl TSIRTtpE , INDEX  I 
. EQ.O I I 60  TO  280 

• ••gozo** 

NBHSPCiN)  , N A HE  I 3 ) (SURVLOijI 
IDOUT»F*IIOOOOl»tNBRSPCrNI»tOOI * N8R5RC  t N I 
IN0E««|F*NSPEC*»2I*IM»II*NSREC*N 
IF  IJ.NE.NTRSI  so  TO  250 

IF  I IBttSIRTTrt-,  tNOTTF  iNt.2^  WRrrt  r»r7TJT  ARtTtmOCrtrT, 

MlNUSI 
SO  TO  2»0 

IF  I IB  1 IS  I RTTPE  , INDEX  I ,E8. 2 I 60  TO  260 
••R..M.N**  «**TRE8*** 

• rite  I 9 , 20  I ARC  ID , I DOUT  .MINUS  I ,NN , J .NBHSPC I N I ,N*HE I 2 | , 

Plu5l 

60  To  280 

•••treq*** 

•RITE  19,101  ARCID.J.NBRSPCINI ,NAME(2I ,PLUS| 

SO  To  280 
F ■ K T 

CONTINUE  — — 

CONTINUE 
— CONTINUE 


•*go2o*> 


••••ftwRITE  CONSTRAINTS  TOR  in--**** 

BO  310  J. | .NSREC 

CALL  I Phase  I J ' *3  I 0 I 

— i»R»MH--HMS0TO«*A» ».»'.ubju:ttt».»» 

WRITE  (9,301  RBRSPC ( J I iNTRS  iNBRSRC | J | ,N*ME ( 3 I ,MI NUSI  iPLUS 1 
continue 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

t 

c 

c 


PROGRAM  1 H*1 N 
CALLED  B T i NONE 
CIlTftJs"  ~*ini^PJT5T  fffffTE  ■“ 

CALLED  ROUTINES!  I NPU T . R 0«C«P i R t SLO . ROWOP 

»E SH| .LOCoL .lddi jg.hicol 
NHSiRANGE,eOUNOS|HASR|KETARc 
PUHPoStl  The  ROUTINE  is  the  eaecutive  r or  the 
hatria  generator. 

date i IT^RRIV  T®  — r 

authors!  Raj  j.d*  Thomas, maj  j.w.  olson,hr.  r.l.  drown 
COHMANbl  U.S.  ARMY  CONCEPTS  ANALT5IS  AGENCY 
8120  wOOOMoNT  AVENuE 
BETHESDA ,HARtl»ND  200IR 


> A ... AiiAA ■ .....IT. A A *»•*!.* ij 


CALL  INPUT 
CALL  R0WCHP 
CALL  RETARC 

CACl  reslo 
CALL  ROWOP 
CALL  RESHI 
CALL  LOCOL 
CALL  LODIAg 
CALL  HICOL 
CALL  R"S 
CALL  RANGE 

call  bounds 
call  mas* 
call  sortw 

CALL  SORTAY 
STOP 

ENU 


8GENERATES  ROW  CHAPTER 
W 

B ~ ' " 

W 

B 

WGENERaTeS  COLUMN  chapter 
a 

B 

■ H CERtRRTTS  -RtGHT  HAWS-tDE  CHAPTER 

w generates  range  chapter 
a generates  bounds  chapter 
u generates  mas*  chapter 

B50RTS  DATA  ON  W-ARC5  TOR  DATABASE  CREATION 
WSORTS  DATA  ON  A-ARCS  TOR  DATABASE  CREATION 
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rv  n n n nin 


r 


SUBROUTINE  h*sk 


1 

2 
3 
1 
S 

“T 

7 

9 


BUSRoUTlNt'  HA5K 

CALLEO  BTl  MAIN 
CALL  INS  ARGUMENTS!  NONE 
CALLED  ROUTINES!  NONE 
OUTPUT  FILES!  ODtOAUDDl*  - 9 * 

PURPOSEI  WRITES  OUT  THE  NASA  DATA  REQUIRED  FOR 

TOE  L0AOL15T  PHOCtbURl  IN  FHPS. 

IT  GENERATES  THE  STANDARD  RASAS  USED  FOR 
ODDBSUD  1 • AND  OOSOLUDl.  StONENT  DEPENDENT  RASAS 

are  in  srade  seghenT  runstreams 
date i IS  APRIL  1b 

authors!  maj  j.d*  Thomas, haj  j.w.  olson,hr.  r,l.  brown 

TCrrandT^SY  "AfiPT "C'0ncEPT5_AN ALV 4 1 5 AGLNCY 

B|2o  woodront  avenue 
BETHESDA ,HARtl*N0  200 i r 


TNELOOE  PftOCI  .LIST 

FORHATI <EnD*t*' I 
FORRATIiNAHE’.IDA.'RASKDATA'I 
F ORRA  T I 8X , ' N*««  TREQ ' I 
F0RMAT(<NahE’.I0*,'"A5ADATR'I 
FORHATI  IRAS*5'  i /8X , ' XN«» • I 

EDNR  ATTTPA  5"RS'  , 7"8X  , *Tnr»  ATT 

FORHATI 'RASAS' (/Bx . 'N«**CREQ' I 

FORMAT  I 'raSASf ,/ex , »X30D»»’ ,2X, ' XN»T»T 

WRITE! 9, n 

RASAS  FOR  FRPS  LOADLISTILISTRI  FDR  SOLUTION  FILE 
wR  I TE I 9 . 2 I 

■ NTTTTET  9 7T1 

w«  I TE I 9 , J I 
WRITEI9,  | | 
wR I TE I 9 , 1 1 

IF  I jGRaoE .nE '2  I «R 1 TE I 9 ,S | 
|FljGRADE.E8'2lwRITE|9,ei 

WRITE  19, IT  

wR  I TE  I 9 , R I 
WRITEI9.il 


WRITEI9, 
ENDFILE  9 
ENOFILE  B 
TTTDnLE  9 
RETURN 

end 


1 1 
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SUSHout  l nL  > OPT 

CALLED  BY!  LINKAGE  ,ROWOP 


ip  an  option  appeals  on  the  xqT  caro.the 
OUTPUT  WILL  BE  PRODUCED , OTHE RWI5E  ROT. 

DATE!  IS  APRIL  7* 

AUTHORS!  HAj  J • D • THOMAS, N»J  JAB*  OLSON .NR  A R . L * BROWN 
COMMAND!  U*S.  ARHT  CONCEPTS  ANALYSIS  AGENCY 

rrzo  rdoordnt'  itenue 

BE THESDA • MAR YL AND  iOUlN 


AXRI  • 

E QU 

1 • 

• 

cali.  oPTimon 

er 

OPT* 

. GET  option  word 

L*  lU 

A I l * 0 i X I 1 

• 

S A 

AO.O.Al 

• store  it  in  value 

J 

end 

t ♦WB , R | | 

• return 
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cOHMOh  /|NPT </  AESISOI'  CPTREMlVI,  ICH&l 


• 5UBH0UT  I ME  : RANGE 

• CALLED  b T : MAIN 

• CALLING'  ARGUMENTglVONE 

• CALLED  ROUTlNESI  IPhaSE , JPHaSE , VALID 

» tlUTPut  FILESI 

• 9 - ODEQAUDQ 1 • 

• PURPaSt  I THE  purpose  or  THE  SUBROUTINE  is  to 

• specim  the  ranges  tor  the  treh  constraints 

• — — TN-TWE  CRT  STg^ENT  « RTNCT5  TTfl  TCSTJ 

a computed  tor  the  ur----consTraints. 

a date i is  April  ?e 

A AUTHORS!  M«U  J.D"  ThOHaS,MAJ  J.M.  OLSON,MR.  R.L.  BROhN 

A COhm^noI  U.S.  ARMT  concepts  ANALT5IS  AGENCY 

• 8|20  MOODMONT  AvENuE 

a BFTHrsD*.wARTr*NiT  rmrpi 

SUBROUTINE  range 

INCLUDE  proci 
Integer  »ili" 

REAL  L DRANG  ' ' 


■fDRHAT  STATEMENTS* 


format  ('RANGES'! 

format  IRA.'RE8B*N0'tJ«>,N|',j2,A‘',2X1F|2.JI 

format  i r*  , 'regband*  i JTT-»rnr^i7TFrrRrTT-i-*T-j-t 

FORMAT  (HA# 'HEUBAnD* i 3 A • ' N • | i | iJ2«AR,2X,F12,3l 

•••••GENERATE  RANGE  chapter**** 

IT  (jGRADE.LT, ji  return 

WRITE  19,  1 0 I •••  : 

ItND*NTRS* I 

[F(N5PEC,LT. 16 | Go  TO  9*B  G RANGE  DOES  NOT  |PPLT  TO  SMALL  PROBLEMS 
IF  | JGH  ADE  • NE  * J 1 GO  TO  *U 

FOR  TO  - TlNYRS-ll  the  REUI  VALUES  FOR  GRADE  OF  MAJOR  (UNFILLED 
RE3U1REMENT5I  BECOME  TWt  COWER  BOUNpS  FOR  TME  TRE9  CUNSTRA InTTr  


DO  50  JA | , NTRS 
K»  J“  l 

IF ( A.EG.O IPROORBMMIN(SURVHI I Jl .SURVLOl  JI 1 
|F!K.GT,0)PROUHa*PRODRB»M|MSURVMIU|,SURVLOIK|) 

DtCRgAl.D  - PRDDRB  

00  MO  M. I .NSPEC 
INDE  AalM-l  ( • I E NO  * U 

FOR  AES,  ESTABLISH  An  HIGHER  LO«tR  BOUND  THAN  FOR  BES 
TO  REFLECF  u/F  major  RE0UIREMENT5  PLUS  most  of  CPT 
REUUIREmENts 

1 r ( v«l i o t b i , OT.giL0»ANgrrLurrTRETrrrrNtrm«0CERH  i - — 

I F I V AL 1 0 I M I • GT , 0 I "RITE  ( 9 , 3 U I K , NBRSPC ( M I , NAHE ( 2 I l LORANG 
CONTINUE  — 


' 5TT- 
C 

n!»rrrNor 

&0 

IF  (NSPEC  • nE • 50)  GO  TO  V?B 
DO  70  J* 1 iNSP*C 

CALL  1 PHA5t  ( J » * A U 1 
call  JPmaSE ( J • J » 170  1 

L0T0TL*REQ2  1 |NDExI-REq|  ( indExi 

L0LIW«(FL0AT(WUTOTLJMi .♦OFLOLO) ,-UFL0LOJ*,5 
h1L1M»»FlOAT(rEOI ( INOEA) )/i l.^OFLOMI » !•( 1 • -UF L OH | )♦.* 

LDLlH«FL0«T(LWLm*M.O»T(MIUMl 

LORANG-FLOAT (rE«2(  INDEX  I ) -lOL I M 

70 

WRITE  (9,20)  NrfRijPC  ( J ) * n AmE  I l ) • L aNg 

continue 

9*8 

c 

IF(  JG"*ue  »LT*  J)  "UUKN 

COMPUTE  RANGES  for  KEY  arc  RELATIONSHIP  CONSTRAINTS 

N5PEC*  ■ NSPEC  • l 
DO  100  M - 1 .NSPECX 

CALL  TFH A 5E  ( H.II'Oin 
MM  ■ M ♦ 1 

00  i o I N ■ HM, NSPEC 
CALL  1 PHASE ( N • S 1 0 1 1 

CALL  JPHAsE(M,n»®1UIJ 

l F l JGR  A L)E  #&T#  3)  QO  7 o 150 

I FTfUT IL  IM , NT  iL  ' *88 > GU  TD  ZDU 
IF(YUTlL(M.Nl.EQ«Bfl*AND*YUTlL(^»H),LT.a8)  GO 

TO  200 

|50 

IFIUTILIM.NJ  • L T • 00  ) GO  TO  200 

1 F t UT  I L ( M , n ] , E 8 * ® 0 • ATVO  • 0 T 1 L t N , FT 7 « L T F0 0T  GO  To 
GO  TO  (01 

000 

JINOE*  • <N-| I.IEND  M 

value)  ■ float i rEo2 t inoEx ) i 
v alue 2 • float ( Rtu2 ( j i ndex j ) 

c 

c 

BI  EQUALS  S PERCENT  or  AVERAGE  Of  REQUIREMENTS 

" T 

BI  • IVALUEl  ♦ V*LUE2I  • U.02S 

C 

c 

IP  BI  GE  SMALLEST  REQUIREMENT,  SET  B 1 «MALP 

OP  SMALLEST  req 

IF  ( B I • L T • MIN  ' VALUE J IVALUE2 1 ) GU  TU  ZD  I 
BI  • .5  • M 1 N (VALUE! »VALUE2) 

2 U l 

LUNTT^Ut 

8 1 • 8 1*2* 

1 0 1 
|00 

WR1TE)*»23)nBR5P^IH)  • NBRSPC ( N J i0| 
CONTI  HUE 

CONT INUE 
return 
“tNir 
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non1 


SUBROUTINE  hESHI 


c 

c 

c 


c 
c 
c 
c 
c 
c 
c 
c 
c 
e 
c 
c 
c 
c 
c 
£ 
c 
c 
c 

Include  pmoci 

INCLUDE  PR  OC  2 

INTEGER  HIGRO  ‘ ~ 

integer  xlosisui 
c 


C •••••FORMAT  STATEMENTS***** 

c 

10  format  II » I *E* ,2» , 'RES'  l JSI 

JO  TURHAT  I r*iTl»TZ*'i»RTr*10S1 

ro  format  i///,< irestricteo  Flo*  cooes  for  grade • ■ 1 3 (2* team  t • , i j , 

• /,t  codes!  o-no  flow  1-flow  from  pRImart*, 

• * Z-FLO*  FROM  AErERNArE  J-FLOw  From  BOTH  R-LT  SE GME NT -DE S I GN A T | ONS  ♦ 

SO  FORMAT  I1H0. 'For  specialty  no.', hi 

AO  FORMAT  I |H, 50121 

c •••••restrictive  flow  constraints  •••••••• 

c ••••*•••••• 

c ••••RESFL0  COMES  In  w I Th  • | • OR  '2'  OH  *3'  WHERE 

c •••the  lower  grade  would  be  promoted  - i -from  primary 

L ••••••••••••••••••••••••' 2 ' -promoted  from  ALTERNATE***** 

c ***•»•****. ,.rji  - PRUfforrtj  Finra  Pni"rRTT;  alternate*  •• 

C ••••••••••••• 0<  - NO  FLO*  |N  THE  Arc******************** 

c •tin  mi  - designations  and  flow  from  previous  arc 

C I N LT  SEGMENT******.* ••••••••••*• 

c 

IF  IJGKA0E.E9.6l  RETURN  W NOT  APPLICABLE  TO  COLONELS  SEGMENT 

[FI  JGRADE.GT.JrO0  TO  I 30 BRANCH  row  CTf  - *1T0  ~MAJ 

c 


c • • • • • ASSIGNING  PROMOTION  FROM  PR  I N|AR  T code  TO  BES  FOR  CPTS 


?DBhoutTRI^T'TTC5H1 

called  BTl  MAIN  IIMmEDIATE  RETURN  FOR  COL  SEGmENTI 

calling  arguments:  none 

called  routines:  hits. set, valid, ipmase, jphase.opt 
OUTPuT  FILES! 

a - standard  output  on  printer 

7 OOrOMJDOVi 

purpose:  the  subroutine  defines  the  fi ow  control 

constraints  for  t*arcs  for  the  lt  • ltc  segments 
For  all  appropriate  tears,  computes  codes  for 
Rcsflo  array  defining  the  extstance  op  flow 
In  an  aRc.nhich  specialty  is  primary  and  if 
* TilRC'CONTJTNr  * FRACTION  (JP  THE 

Flow  on  an  earlier  arc  in  the  network. 

DATE  1 IS  APRIL  Y 6 

AUTHORS!  Maj  j.d*  Thomas, maj  J.w.  OLSON, hr,  R,L.  Brown 
COHmaNDI  U.s.  army  concepts  analysis  agency 

B I 20  WOOUMONT  AVENuE 

WETHESDA.MTITlVDTNDTirorR 
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A 


■^••yw-->3Sl^tWC  RlTpwO*rOW  ftOw-fWIMWTT^Pt 
c CODE  1 - BES  T0  ANY  OTHER  PREFRrRED 

TO-  BES  P0R  LTS 
5PEC1ALTT 

0LLOW8I 

c 

C ’ 

CTJUt  ] * I£5  TO  IWWVOFIB  A T Btb 

CODE  2 - AES  TO  COHBAt  bES 

c 

c 

••AES  To  IES  NOT  ALLOWED!. 

I BGn* I 

1 END  ■ min  1 ICH61NTRS) 

TT  (JSfTlDE T«EO#JJ  TO  ' U 

IF  | ICMG,GE.NYRS 1 RETURN 

c 

c 

• » *1  U5ED  B*C*U5E  IN  YEAR  ICHQ  toy  in.  n.UW5 
ARE  RETIREMENTS  DRIVEN  - NO  CONSTRA  1NTS*« 

rBGKl-  1 L H b 4 1 

iend-nyrs 

70 

DO  I ZU  J.IBCNIIEND 

<•  j*  i 

DO  t ID  H»I  iN5PtC 

IF  I VAL ID  I M I «GT ,0*AND. JGRADE.GT.2  I 60  TO  110 

OU  IUU  W«i,w5ptc 

IF  (M.E8.NI  60  TO  100 

c»»»»  tr  N tS  COMBIT  »«Fim  NO  F*tFERENCE  FOR  * t«tT  00  t««Fr 

IF  I TUT IL I M |N I «6E . SB. AND. TUT ILI N,M I .61.88 | s0  TO  (00 

c if  n ts  i co"*»t  arm  iwo-unt-s^*  **tfr*e*ct — 

IF  | ruTlLI NiMI •ta.08.»NO.YUTlL IM,N| .LT.88 I oO  TO  fo 


z 

z 


IF  <ruTlL<N.Ml*£«.88,AND.YUT|L<N.N),GE.8B>  GO  TO  100 

§»FOR  LTS  ONtT  J ItS  To  CW*T  »RW-*ttrOWtTrr» 

IF  I TUT  1L  I M ,N  I .C«.88.  AND.  TUT  III  N .Ml  .|_T  .88  .»N0.  J6RADE  ‘LT.JI 


»-  60  TO  95 

C I F COMBIT  ARm  IS  ALTERNATE  EXIT  00  LOOP 

c • • i f n is  a combat  arm'ano  no  preference  for  m** 

tr  (Tl/T»LtHIN7Nt9.»8.*NOiTt>TtLMnM->.«TOt  Bo  TO  100 

c ••neither  m nor  n cmbt  arm,  n is  pref  of  m»« 

IF  ITUTlLlM,NI»LTi8tI  80  TO  TO  

60  TO  1 00 

-90 iNuE»»i*MNSPtc«»t)»(Fi-i  lmsPeCMW 

C • *F  OR  LTS  ONLY  - TWO  AES  M*T  NOT  BE  PAIRED** 

tPI J«MA0tiLTiJ  »*NOl  VRLIDTMI t«T«0  •ANOsT*tt»TN7T8TTfr* 


• 60  TO  100 


CALL  SET  I RtSFLO. INOE* • I » 8 >*T 

TO  F^ttTA-RY 

60  TO  100 

* 

CALL  SET(RESFL0,IN0E*,2)  U S&T  TO 

alt  for  lts  onlt 

100 
1 10 

CONTINOt 
CONTI NUE 

1*0 

CONTINUE 

1 BLN*  1 

X-  - 

C*«M 

• plottino  paths  of  promotions  to  determine  resflo  cooes 

c 

1 JO 

continue 

I BGN*  1 
IENQmNTRS 

00  290  J* I B6N , 1 END 

K-J-I 

XII-SO 


c 

c 

I *0 

[SO 

ISO 

1 

1 70 

c • • ••• 

I to 
1*0 

I 

200 

c 

210 

2*0 


Off  IBTT  HTtTNSFEC 

CALL  IPHASE|M,*2bO| 

IF  I V4UtnM>  .5T.D  .AND.  JGRAqE  .CO.  31  SO  TO  280 

00  270  N.|,nSPEC 

CAlL  | PHASE  1 M . * 2 7 o I “ ' 

CALL  JPH*SEIH|N,*270I 

IF  (H.EB.NI  50  TO  273 

movE«k 

SI6N»l«'5T0P* 

INDEX*! X*NSP£C**2 I * IM»I I *NSPEC»N 

IF  I IbITSIREsFLO.INoeXI.Eo.I  I (.0  TO  210 

• •FOR  L T S ONLt  - TRIM  t H AS  A l CODE** 

1 r nnTyrRl5FL0‘iTRirCTTTEaTRT  'GTT  TO  210 

IF  I | 8 I tsi RESFLOl | NDEX I .EG.O I GO  To  270 

•aaAPESFlo  CODE  IS  »2*  OR  '1*  »*»•» 

IF  I IB  I 1st RESFLO . INDEX  I ,E8«3 I SIGNAL»'GO* 

NMaTIO*TUTIUN.HI/|0 

MRAT|0»tUTILIN.HI-NRAT|0»|0 

Htrvri'flOTETRRiTTfftTTmjtTTn — 

IF  (MOVE.LEt  InTRS-1  II  GO  TO  150 
IF  (SIGNAL. NE. ’GO' ) 50  TO  270 
movE.k 
GO  To  210 

PRIMARY  to  ALTERNATE 

- 1NBEEA|TT0vrFHST>ECr>2HTH^j|iNSPEL*H 

IF  I JGR*DE .GT • 2 I GO  to  ISO 

IF  I IBI’SIRESFLO. INDEX! .NEiffl  t «Ut  ~SET  TRESELO I INDEX . R1 

GO  TO  l 2 0 

CONTINUE 

IF  UialTSIRESFLO'lNoEXI.NEOl.AND.IIBlTSIRESFLO'INDEll 

•he *ttt  ant  set  i reseto-.  inpex,  i i — — 

IF  I | B I TSI RESFLO  i I NDEX I .ES>2 I CALL  SET  I R E SF LO  i 1 NOE  X i 3 I 

MOvE»nOVE*MRATIO*YTouR|HI 

IF  I HOVE .LE • I NYRS-I  I I GO  TO  180 
IT  (SIGNAL. NE. ’GO' r GO  TO  270 
hovE*k 

GO  TO- "2 tO 

LTERNATE  TO  PRIMARY 

INDEXP |H0VE»NSPECa«2 I »th-i t«NSPEC»N 

IF  I JGR*DE.GT.2l  GO  TO  | 9q 

IF  ( IBI TS I RESFLO , INDEX  I .NE.OI  CXLL  SET  I RESFLO 1 tNDEX , R | 

GO  TO  200 

CONTINUE  — 

IF  tllBlTSIRESFLO, INDEX). NE.3I. AND. |IBITS(RESFLO,|N0EXI 
• NE.II)  CALL  SET  I RESFLO . inpex ,2  I 

IF  I | B I ts I RESFLO  ■ | NOEX  I .Eqi  I I CALL  SET  I R E SF LO . I NOE  X , 3 | 

MOvE«MOVE*NRATIOMTOuRINI 

GO  TO  1*0 

AAARESFLO  COffE  ESUTCS  PR*tr»»»»- 

MRaT |0*tUT | L I M «N I I | 0 
NRaTI0rTuTIUH|NI-«R»T|0«IO 
MOVE  «MOVE*NRAT IO*YTOuR ( N 1 
IF  IHOVt.GT. (NYRS-II  I GO  TO  270 
•alternate  to  PRIMARt 

tNDtXMNOVEANSPCCTATI^rNMTRNSFTCT" 

IF  ( JGR*0E.GT.2I  GO  »0  230 

IF  I IbITSI RE5FL0, INPEXI .N{ .01  CALL  SET  I RE 5F L 0 , 1 NDt X i Ml 
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p 


230 


2*0 


C ON  T I NUt 

TT  II  IBlTSlRESFLO,  I NOE*  I .Nt.jr;_ 
•NE.III  CALL  SET  I REsF LO  , 1 NOE* , 2 ) 

it  niitsnrtsrtir, rwot»TTEg.n  lull  set 

MOVE»NOVE*MRATIO»YTOUR(M| 

IT  I RBVt  » ST . I N < K5- | ) I GO  TU  220 


C»«».«... PRIMARY  TO  ALTERNATE 

'rtior*«r*ovT«Ti5TEc»rrjvrNi , 

IF  I JGR*0E.GT.2I  GO  TO  25q 
IT  UBlTTTRESTtO.TTTOEin  .NE'.Ol  TAtL^StT  ItrrTTtrOi  lTDt*!GT 
GO  TO  2*0 

-7*8 cwrnreE" 

IF  I I IBlTSIRESILO, INDEX  I .nE. Jl . AND. ( IBI TSI reSFLO, INDEX  I 

1 fRriTi~T~CTrctr set  iitesTcoiinoex.it 

if  1 ibUsiresflo,  index  1 .es.ei  call  set  irestlo,  index,  ji 

2*0  H0vE*MDTETTriJU»nrrrNR*TrO 

GO  TO  220 

cuumro* — — 

CONTINUE 

continue 

IF  I JSRA0E.NE.3l  50  to  370 


~mx 

2B0 

2TU 


£•••••  plotting  paths  of  cpt/maj  starting  »t  to 


• •• 


DO  3 60  H« I ,NSPtC 

00  350  N«Trf*srtC 

• • *K ■ 0 I S ASSUMMEDSTARTING  time  period*#* 

it  ir.eoin*  go  tit  jso 
•••IS  N/M  PREFERRED  at  T-O.TES  |F  lt  99 
IT  I T~U  T I L~T~N  fH  1 I ft  • T9  I 00  TO  J»0 

•••is  m a prohibited  secondary***  yes  if  equal  •• 

IT"  tTTJTIL  IN|HT  •!»£•*#)  SO  TTIlJ — 

•••ARE  M AND  N BOTH  COHB*T  ARMS** 

IT  tTuTILt»»trTlOt.*B)  80  Ter  ISO 

MRATIO*YUTlLIM,N|/|0 

HURT  |0»T0T1lTWiOT*ITRATI0«I0 


LAST»MRATlO»YTOUR(Ml 
IT  iLAST.GTiNTRSI  L*ST«NTRS 

C ••CONSIDER  EACH  SUB-GROUP  OF  T-ZeRO  POPULATION 

00  310  WfjUlT  — 

X«L-| 

CALL  set  IRESFLO, index. I I 
X PK * TTOOR INI *NR  A T I O 

C • * I I F BEYOND  HORIZON  Hove  to  NEXT  SUB-GROUP 

IT  IX.ST. INTRS-I I I GO  TO  3 1 0 
INDEX«|X»NSPEC*»2|*IN-|I*NSTEC*M 

c xir  srt- ■ tresflu , index, 71 

f»a*ytourimi*mRatio 

IF  IX .#T I |NYRS*I  » t GO  TO  3 1 0 
SO  TO  300 

310  CONTINUE 

sr  to  iso 

3*0 7YR  ATI  O^TXTTT  ttN, 101*10 

HHATIO»YUTlL(N,M|-NRATtO*lO 
LAST.MRAT IO»YTOURtH) 
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jJo 


3*0 

3&0 

J&O 

3^0 


C 

380 

c 

c 

r 

c 


c 

c 

c 

c 

c 

3*0 

HOO 

<410 

•420 


tr  1 L AST  .G  T . N T R5  7 trASTRIRTRS 

00  3*40  l»1  .LAST 
*»L-l 

INDEX* l**NSPEC*«2 I* ( M-ll ‘SSPEC^N 

t»LL  StT  IREsFlOi  |NDE*421 

N.katTOURINIanRATio 

IT-  (k75f  . ( NVS3- I i I 60  to  3*40 

lN0E»«tlt,NSPEC»«2)*IN-|)»NSPEC*M 

CAlL  SET  |RESFLO,lNDE*.n 

AWRTYTOUR I M I •NR»T I 0 

IF  Ik.ST. INTRS'l I 1 GO  TO  3*0 

GO  TO  330 

cmrrnro* 

continue 
CONTINUE 
CONTINUE 
I BGN* 1 

IF  I JGR ADE .EU. 2 > I BGNa 1 CHG* | 

BO  *20  j.1Pi,N,NYRS 

k*U*l 

00  * l o H* 1 4 NSPEC 
CALL  I PHASE  I M , »<4 1 0 I 
00  *00  N ■ I , NSPEC 
CALL  1 PHASE  4 N i S*UU I 

C A L L JPTTI5FI  HTTTj  E*0or 

lNDE>*|k»NSPEC,»2l*4M-|l«NSPEC*N 

IF  I IBlTSIRESFLO,  INDE*  I .Eg.OI  G<T  TO  *00 

LOC«(k*lOOOOI*<NB!4SPClM|AlOOI«NBRSPC4N| 

IF  I JG*»0E.NE.2|  GO  TO  380 

IF  I I B I Ts  1 44ESFLO  i INDEX  I <LT  •*  I GO  To  *00 

A •»*»  I TE  TLTi  CON»T*XIWT-FTJN-rTS»»» 

WRITE  4 * i 20  I LOC 
60  TO  3*0 
CONTINUE 


•••FOR  C»PTS  BEFORE  J EXCEEDS  IC«G  AND  FOR  BES  AND 


N NOT  A COMBAT  ARM,  WRITE  A .LT.  C DNS T R A 1 N T • • • 

IF  I JGR*OE.Ea. 3, AND, J.LE . ICHG. IND.TAt tOINI .LT. 1 .AND. 

1 TUT1LIM|N),NE.  8SI  WRlTE19,20l  LOC 

A A • F OR  CAPT5.8EF0RE  Tear  EXCEEDS  ICH5.F0R  BES, and 
•••  N IS  A COmBAT  arm,  write  .eg*  C ONS T R A l NT • • . 

I F | JORADE  , E G « 3 4 A NO  ,~J7LE  AT  C*G  . XNU  .VXLtPTMl  . L~Trt  VHTTIT. 

I TUT IL I M.N I ,EQ.  881  WR|Tt(9,lol  LOC 

a.aESUALITT  CONSTRAINT  IF  grade  • * OR  5 

GR  A u E « 3 AND  TEAR  gT  Ic«G 
GRADE  • 3 AND  H IS  AN  AES 

IF  4 JgR*OE .NE . 3, UR, j.GT . I cHG.OR. V AL I D I M I .GT ,0  I WRITE  (9, 


l 101  LOC  — 

CONTINUE 

IRowct(T|  •IR0WCTI7I  * I 
cont inue 
Continue 

CONI INUE 

if  1 1 opt ( i Rb i .rrrn  return o optional- re Pmrr  or'Rrsrro  -mors — 

IBGN.I 

HI GBD* JGRAOE  * I 


XII -S3 


WRITE  { * I HO  | higro.i 
OD  IRC  JwUBSPtC 
CALL  I Phase  I J , »<tw!>  ! 

■RITE  lA.SOl  NBRSPC I J I 
IEN0w|BSN*lNSpEC-l I 

DO  M10  "•IBSN,IITO“  

«L0S(M-lB6H«l (■IBITSIRISFlOiMI 
hJIT  CONtINUt 

WRITE  lA.AOl  ( «LOS IN  | ,hi | ,NSrEC ) 

“TRS tBGNwlBGNARSFEC 

Rto  CONTINUE 

RBO rONTINUE 

RETURN 
tNO 


r 


SUBROUTINE  RE5L0 


SUffRodrr^i  RE5UO 

called  bt!  MAIN  IIMMEDIATE  return  FOR  0*3*5  AND  0-2*SI 

calling  arguments:  none 

called  ROUTINESI  IBlTS, SET, [PHASE, JPHASE 
PURPOSE!  COMPUTES  CuOtS  DEFINING  WHETHER  AN  X-ARC 
contains  a fraction  of  an  earlier  arc  in 


DATE!  IS  APRIL  76 

AUTHORS!  "AJ  J.D*  THOMaS,  mAj  J.W,  OLSON, MR.  R.L.  BROWN 
COMMANDI  U,s,  AHMt  CONCEPTS  ANALYSIS  AGENCY 
8 1 2 U WOODMoNT  AVENuE 
BETHESDA .MARYLAND  200|R 


INCLUDE  PROCl 

•••••RESTRICTIVE  FLOW  CONSTRAINTS 


• •«••••« RESFLO  CODES.*.*. 

• .«••••  r - prtjhoteR  FROH“FTrrRncY  -»*rr»r 

•••••••  2 - promoted  from  alternate  ••• 

.••••••  j . promotions  from  both  specialties  ••* 


if  i jgraoe.lE.31  return  a odes  not  apply  to  captains  or  below 

do  2 R 0 M.I  ,NSPEC 

CALL  IPHASEtMlirRDI  

DO  230  N« I * NSPEC 
CALL  IPHAStlN, 12301 
CALL  jPmasE(m,n,a23UI 
• • • A ■ 0 I 5 ASSUMmEDSTARTING  TIme  PER  I ODA .4 
IF  IM.E8.Nl  GO  TO  230 

...IS  N /FT  PREFERRED"  ” *T  T -TJ7TEr~TT“  t T W T»  » ~ 

IF  I UT I L IN *M ) ,GE .’R 1 GO  TO  220 
...IS  M A PROHIBITED  SECONDARTAAA 
IF  IUTlLIN.MI.NE.BBI  GO  To  t I 0 
A A A A RE  M ANO  N BOTH  COMBAT  ARMsAA 

IF  IUTILIM.NI.GE.8BI  Gu  To  220 

'MRATresurrEtM.Nino'  

NRAT|0«UTI*-(M,NI-MHATI0Al0 

LAST«MRAT|OaTOUR|M| 

IF  (LAST.&T.NYR5I  LAST.NYR5 
AACONSIDEH  EACh  SUB-GROUP  of  T-ZERO  population 
00  100  '-■I  .LAST 

A TE  MP.K 

aaaktemp  peeps  track  or  one  ioum  increments*** 

Index* i •'•nspec*»2  i * t m- i i *nspec*n 
call  sef  i rttpe .index . 1 1 

IF  I JgR*0E.E8.6|  GO  TO  2 U 

A A •*PR0«0T  I ON  FROM  PRtMARTT»«r»*~ — * 

IF  I | B I TSI RESFLO , | NDtX I .Ea.2 I CALL  SET  I K E SF L 0 i 1 NOE  X t 3 I 
IF  I |BlT5IRESFL0,!NCilXl.NE.3|  CALL  SET  I RESFLO . I NtEX  , | I 


r 


-nr 

■ ‘ tmirnrat 

K«K*T0UH(NI»NR»T10 

IF  TT*6T  . f NYRS" I FT  TtaNyRS 

c 

XTEHE  IS  wHEN  ONE  “TO  UP  LENGTH  COHPLETFD  — 
KTEMP.HlEHP»TOUR(Nl 

C 

If  TKTE^.5!  * \ "TH5- 1 ) J~K  1 £Mr ■NYHb 

•••if  there  aRe  multiple  tours  in  a spec,  then  at  the  end  or 

C 

JQ 

EACH  TOtm  1 PROHtJTETS  HOVE- TO  THEIR  OTHER  SPEC** 
IF  UUHp.E8.lO  60  TO  so 

IF  | JGRADE.EQ.6 » GO  TO  MO 

••*»ipNOMOT | ON  FHDH  AT  t HN  A TE  • • • 

IF  1 I 0 I TS ( RESFLO  1 1H0E* 1 • Eg. 1 1 CALL  SET 

(RESELO. Index. Ji 

HO 

IE  I IBITJIRESELOi indexi .ne.^t  tale  tet 
continue 

TRE5EL0. INDEX  121 

ktehp»k»ehp*tourin) 

IF  (KTEHp.LE. (NYRs-II > 60  TO  30 

C 

so 

••{IF  BEYOND  HURIZXJTT  "0V£  TO  NEAT  SUB-GWUUP 
IF  (X.GT,  (NYRS-I  M GO  to  100 

INDEX«1**N5PE:C**Z)*(N-I  J •N5FEC*M 
call  SET  < RTrpE  , 1N0EX  . 1 ) 

c 

IF  ( jGH"DE.EQ.»J  GO  TO  60 

IE  1 |0l TSI RESFLO,  INDE*  1 .NE. 3 1 CALL  SET 

1 RlSELO  , INDEX .3  | — 
1 RESELO . 1 NDEX , 2 1 

60 

K«KM0UR  l M ) «MRAT  10 

I P 1 m«  1 » 1 flT  R5  III  K »N  T K 3 
KTEMP«KTEMP4T0UR(M | 

70 

If  IK  1 C " • U 1 * l T 1 1 » — Mini  an?R3 

IF  IKTEHP.EQ.KI  GO  TO  90 

IF  { J&RAOE *EQ. 6 | GO  TO  00 

c 

• • •••HROHOT  IUN  F1TOW  rWIFIARTl»»* 

IF  1 |BlTS(RESFL0,|NDE*I.E0.2l  CALL  SET 

1 RESELO . INDEX , 3 1 

80 

IF  1 IBlTSCRESfLo,  I NUfc.  * 1 # Nfc  • 3 1 CALL  3 C Y 

CONTI  NUE 

i reselo i Index i i i 

IF  ( KTEMP.LE* ( NTRS- 1 I I 60  TO  70 

1 F l K • v*  1 • 1 1 I 50  TO  |OU 

GO  TO  10 

"CO NT  TNU* 
60  TO  230 

i to 

N R A T I o ■ 0 T IL (N , M ) / I 0 
MRATIo«UTIUN,M)-NR4TIO*IO 

LA5T-MRAT JU»TOURr"J 

IF  i last .gT .nyrs ) last«ntrs 

i 

UU  7TU  uw 1 iL«5' 
K«L-  1 

1 20 

K T £ H P A K 

INdE*«(E»NSPEC,»2|»IM-|I«NSPEC»N 

call  5El  ( rt YpE i f nOE J 1 t t 
IF  1 JGRADE .EQ.6 ) GO  TO  1 Jo 

t ' 

IF  1 |0 I TS ( RESFLO  , INDEX  1 .EQ« 1 1 CALL  SET 
IE  | 10 1 TsiRfSELO, 1NDBXI .HE « 3 I CALL  SET 

ireseLO. Index .3  i 
tHCSELOl IN0EX.2I 

XI 1-86 


coutinu*- 

A*K*T0UR(N|*NR»T|0 
I r IK.ST,  INYRS*!  M KSNVRS 
ATEMP.IlT EMP*T0UR  I N I 
1 F lATERP.GT.INYFS-i  |)  RTeHP»H¥R5 
IP  UTEMp.EB.Kl  GO  TO  140 


IF  I J6R4UE.E8.4I  00  TO  1 bo 
•••PROMOTION  FROM  PRtHARYI****' 

IF  ( |B|ES(RESFLOiINOC*I.E9«2)  CALL  SET  IRESfLO. INDEX, j) 
IF  I I BT^S I RE5FL0  1 1 NDEE 1 .NfL  J 1 TILL  SET  IHE3FL0 ■ INDEX  tl I 
CONTINUE 

kttrr  ■r  t t h p ♦ t uxnmn — — 

if  utemp.le.  intrs-i  i I so  to  mo 
IF  Ik.ST.INTRS*! II  GO  TO  J10 
IN0EX*|K*NSPEC**2I*IN'I)*NSPEC*M 
C»lL  set  ( RTYPE i I NIJEX  1 1 1 
IF  I JGR  A DE  « E B . 4 ) GO  TO  1?Q 

— 4«  FFFPRgROT  tow  TR0P~PR7 WI RTi IT|T 

IF  I 1 B lTS I RESFLO , I NDEX I ,EQ. 2 I CALL  SET  I RE SFLO > I NOE  X ■ ] I 
IF  I IB|TSIRESFL0iINDE*).NE*3T  CALL  SET  IRE5TL0 .INDEX  > I I 
CONTINUE 

K»K»TOUR|HiAMR*Tlo 
IF  U.ST,(NTRS-|  1 I K.NYRS 

RTeHpVETEHP*TOURIR| 

IF  IKTEHP. ST. INTRS-l  I I KTEMP*NYRS 

IF  UTE"P.E8.KI  GO  To  200 

IN0EX«|FTEMP»NSPEc»»2)*|M.| )»NSPEC*N 
IF  IJsR4oE.Ea.4l  GO  TO  I 9o 

•••••promoted  from  alternate*****  • 

If  ! 'bits' resflo!  inde»! Ine* j!  call  set  IresflT H ND ExTTl 
CONTINUE 

ktemp.k  Tempmour I M I 
IF  (KTEMP.LE. INTRS-I  I 1 GO  TO  ISO 
IF  I A ,ST . I NYRS* l I I GO  TO  2 I 0 

GO  TO'  r*0  

COnTI NUt 
SO  TO  230 

lNDE».IM-t l*NSPEC*N 
CALL  9ET  iRTYPE . index , ji 
CONTI NUE 

toNTINUr  


RETURN 

END 


^Hwoormr  ffrsi5*-TTiTr,ir,mnrrnr,w»irroT 


* n • r*  ( *it*  • »t*t  ■ * *TTrr*  • rt » . 


CALLED  Bit  LOD 1 AQ 


J - CURRENT  tear 
n - alternate  specialtt 


nratio-  utjl.  ratio  jn  specialtt  n 


9 - OOEQAuOOIt 


To  A higher  grade* 

DATE!  IS  APRTl  T* 

AUTHORS!  HAJ  J . o • ThOHaS iHAJ  J.W.  OLSON. HR*  R.L.  BROWN 

8 1 20  HOODHONT  AVENUE 


— i ncltjde  pRon 
Integer  arcio 


c •••••format  statements** 

c 

rM-  FOR H A T t ♦ T * , jS.IAiRTTTJSrTTT 
C I 22  FORMAT!  1 T * *J1  |2U2»SX|J5,  1 *4 ) 


I F I 2 . 9 I 

TOO  FORMA  T t<F)t,  *r»  ,J^i9X|<rtrJ*,nryPt2.ST*Xl*jTiT*7 

c 

— r»  » TUT  IT  tM  «N  I 

>F(  IR*EQ*B8l  IR  • TUTILIN.H) 


JRATIO  . IR  * I RAT  I 0* I 0 
* rPERRiT 

ARCID*!J-II*IOOOO*NBRSPC!MI*IoO»NBRSPC(N! 
■ - VALUE* I .0 

ADD  IF  I I NRAT 10*T0uR' Nl I *NE* 11  GO  TO  IQOO 


VALUEI*VALUE*SURvLO(KPER>*PRHTUPER»II 
VALUE*T»LUE»5URVL0tKPtR»*t  t i *PRMT t rPt*» t T 1 

C **res(kperin  M*. 

WRITE  *19, RODI  ARCtO.RtntOtroT.YALOEl 
ivali*  • VALUEI*>DOO 


RPfR.KPER*! 

rr  tKPER.GE.NVRSl  RETURN 


Bt>0 


C 


|000 

X 


I 200 

c 

c 

c 

I too 


1*00 

c 


c 


c 

1*00 


2000 

t 


ir  i iH»t«riorToim<T'i  i «Nm  i wto  3?oo 

IDOuT»IKPER.I000O|.,nBRSPCIm|.|0C*nbRSPC(NI 
VALUE  l»VALUE*SURVLO(KPERi*PRMT IKPEfi*ri 
IHUI**KUEtllMlliS|llP(ll*l  l«PiHTIlKi«|  1 1 

•*RES(kpEri  * n»» 

white  I’.HOOI  »HC 10  ,res > I oout  , v«loe  I 

Tmr*  r iriureimmi 

KRI TE<*, 121  I lllOUT  , 1R»T  lo.  JRATlO.TTOURlN)  , y T OUR  I N | , ARC  I 0 . I V AL  I K 
KPEr.KPER*! 

IE  IKPEK.GE.NYRSI  RETURN 
SO  TO  *00 

IF  ( nRAT IO.nE  • I I SO  TO  1800 

■ • • • I END~~.~~i  OF“”C  I NC  CUNSmiNTSir* 

IEno*tourini-i 

IF  (|KPtft*lEN01«6T.Ht*Sl  IENd.NyrS-RPER 
DO  1 MOO  |NOt**lllEN0 

VALUEI.VALUE,SURVLO|KPER|.pRMtUPTII*ij 
S A V A L l |N0E«I*VALUEI 

|EN05«EPlB*[CP0-niBET  

00  1200  F»KPERt IENOS 
SAVALlIROEXlaSAVALIlNDEK) *SURV*I IK | 

CONTINUE 

VALUE*VAlUE*SURVLOIKPER  I • t I .iPRSTlKPER‘1  I 1 
I KPER l -N*c I NC»A» 

»MTE  Tr,2ffOV  ATECTtrVKPTR  , TTBK5PL  I N I , NAME  I *,  I , VALUE! 

I V A L I A • VALUE1*IOOO 
WRITE  IBi  l22IKPE*,NBRSPC(Nr;NBR5PC|Nl  i 

• ARcIO.IvalIX 
KpER.KPER*| 

IF  IKPER.OE.NTRSI  RETURN 

CONTINUE  ~ 

VALUEI*V*LUE»SURVLO(KPER|»PRmtIKPER*II 
DO  I *0U  » • I , I End 
VALUE  I "V ALUE I *SAVAL I * I 
CONTINUE 

VALUE*V»LUE«SURVL0IKPER  » • I I *-pRMT (kPER»|  I I 

IDOuTwiKPtR.logOOrFNHTTSPCTTir*  100ANBRSPCIHI 

••RESIKPERI  N“M  • • 

WRITE  IV.HOOl  ARC  I D |RES  » 100UT  , V ALUE 1 
I V A 1 X • V ALUE  1 • 1 ouo 

WRI  TE  18, 121  | IDOUT,  IRATIO.  JRAT  I0.TTOURTN1  ,TT(JUR|H1  , AR  C I D I I VAL  I S 
KPER. KPER* | 

IF  IKPER.SEiNYRSl  RETURN  

• • • • NO W CHECK  ON  TOUR  |N  OTHER  SPE C I AL T T • • • « 

GO  TO  800 

.....NHAT | 0 • N E . I ANu  NRAT10.ToURINI.NE,  | 

DO  3000  K K . 1 iNRATIO 
| END. TOUR  I N I 

IF  IKK.ElJ.  I .OR.TOURtNJ  iEQi  r*  ~ rtTJD'TmjR  I Nlit ~ 

IF  I I kper*  UNO  I .ST  .NTRS  I iend.nyRS-kpeh 
|F  llEND-ll  2000,2200,2200 
VALUEI.VALUE*sURVLOIKPER|.PRHTIkPER*|) 
VALUE*VALUE»SURVL0IKPER|A||*-PRMTIKPER*11I 

|00UT*IKPER.|O0OUI»NBHSPC(Nl*100‘NBRSPCIM| 

• ••••Of  5 |KPER1»N*"  •»»»! 

.rite  l», wool  ARCIDiRES, IDOUT, VaLUEI 
IVALI*  ■ VAEUEIAlOOO 


XH-ffl 


xpER»xper*i 

TF  TTPtR.4C.NTNST  RETURN 

60  TO  1000 

00  7400  TR®E7*r,TCNg 

v4luei*valoe*survlouperI«prmtikper*ii 


IENOS«KPEH*IENO-|NDEX 

0 0 7R00  X»XPEn»IEND5  " 

S<«1LI  |N0EX).S*V»L  I InPEX  ••SURVHHX  J 

continue  — 

VAlUE.VAl,UE.SURVLOlKPER|»U.-PRRTIXPER.l  I I 


WRITE  If, 2001  ARClD.KPER.NBRsPCIN) , NAME  I & I .VALUE  1 

TTALT*  » VALUE  1*1  DOT) 

»RlTEIg,ll2lxPEN|NBRSPCtNI,NBRSPC|Nl,ARClD,lVAllX 

RPENiURENAT 

IF  IxPER.SE.NrRSI  RETURN 


CONTINUE 

VALUEl-VALUE •SURVlOlKPERI.PRMTIxPER.il 

og  78(jgn"iiTn*u — 

VALUEl»VALUEl»SAV»UXI 

CONTINUE 

VALUE«VAlUE*SURVLOIKPEK)«I  1 ,-PRmTIXPER.I  I I 

IPOWIXFERf  1 0000  I »NBRSPC|  n l»  IOU»wBRSPEIM| 

••••••RES  (XPERI-N-M  ••••• 

write  TN.RotrT  **croTRt5,toutrrfiritWT 

I V A L 1 A • VAtUEl*l0O0 

imtnrti  t2i  i tDOUTjiwrHo.uirrrtOiYTOUR+Ni  rTToUR(Hi-r>wctt 

KPERnKPER. I 

jp  ixpeR.ae.wTRat  return 

continue 

-••••NOW  CHtCx  ON  TOW  TN  OTWCN  0PeC1«tTT*<»« 

60  TO  *00 

tf  TNRAT  to. NE ,11  40  TO  *OO0 

••••••IEnO««  OF  C1NC  CONSTR* INTS».» 


linu»iwunin|"| 

IF  I I XPER. IeNO I .ST.NYRS  I lENO«NYRS-XPER 

00  1*00  I NOE 1*1 > TEND  — 

VAL.UElmVALUE*SURVLO(XPER|.pRMTIxPER.|  | 

5AVALI INoEVINTAUOET 
|E nos "XPER. IENO- INOEX 


wu  J T u U IS  r 6.  TN  I I t ••  V J 

SAVAL||N0EA|«SAVAUIN0EXI«SURVH1(KI 

CONTINUE 

value*value»survloixperi»ii.-prmtixper*iii 

»..XPFN-N-CINC»RT» 

WRITE  If. 2001  AHCIO.KPER.NBRSPCIMI  .NAMEISI  , V ALU  E 1 


WRITE  I 8 , 122 IXPER.NBRSPC (Ml ,NBRSPC|M> .ARClO, | VALI X 
KPER«XPtR*l 

IF  IXPER.SE.NTRSI  RETURN 

continue  

»aluei»value*survloixpeRi»prmtixper*Ii 

— oiti»oo~7»t  nEwo 

valuei*valuei»savauK) 

CONTINUE 


c 

c 

1000 

4200 

c 

44QQ 

4600 

c 

c - 

4*00 

sooo 

c 

bJOO 

c 


*M-UfT«t.gt»stmTtorrrrr*-»nT*p»nrupt*Tri — 

ioour»i*P£w«ioooO)*NBnspc im)»ioo*nbRSpcin( 
tn*ns  kpER  -«-N  • •»• 
white  14,400!  arc i o . res  * iuout ,V6lue i 
IvAlI*  • T*LOEI»n)0d 

WR! TEl*. 121  I IOOUT, I RAT  1 0 • jRATlO.TTOURINi .TToURIMl .ARCIO, IVALI* 
KPET-KPCW*! 

ir  upeh.ge.nyrsi  return 

• ••NOW  CHECK  ONTOltR  IN  OTHER  SPECTTH.TT»»»» 

GO  TO  600 

DO  5200  kK.I ."RATIO 
|END*TOUrIMI 

IE  tKK.Eg.T ^PP~«T0tnrr"T.T3Tn~"TEHU*  I OUR  I " ) - 1 

ir  i ikper»ienD).gt,ntr5)  iend»nyrs-kper 
IE  I I END* 1 I 4200,4400,4400 
VALUE  I «VaLUE*SuRVLOI KPER l»PR"T  UPERw  I 1 
VALUE*  VALUE  *5UR  VLOIkPERUI  1 . -PRhTUPER*  I ) I 
IDOur- I KPER» 1 0000  UnBrSpCIMI • 10o»NBRSPCIN | 

••••ARES  'kREff  *H-N  • ••*: 

WRITE  19,4001  ARCID.RES.IDOUT.VALUEI 
IVALI*  • VALUEI*1000 

WH I TE  ! 8 . 1 2 I | IDOOT , IRATIO, JRATIO.TTOURINI .TToORIMl .ARCIO. IVALI* 
*pER«KPER* i 

|E  UPtH.GE.NTRS)  RETURN 

60  TO'SJuO  ' 

00  4800  | NOt  * • I , I E N D 

VALUE  | wVALOE»SURVL0UPEin  •PRRTTKPfRAIT ~ 

SAVAU  INOE*  UVALUE1 
IENDS.kPER»IENO»INOE* 
oo  4aoo  k*kpew i I Ends 
21  nr* 

continue 

VALUE  •VAeUE»SURVLOUPERI»I  I . -PRRT I KPER* I 7 7 
•••KPER  H C I NC»»»» 

WRITE  19,2001  ARClOUPERlNBRsPCI")  .NAHtlSI  (VALUtl 
IvAlI*  • VALUEl»[UOO 
WR  PTE  I 8",  | 

KPEWw*PER*l 

IE  UPER.6E.NTRS)  RETURN 

continue 

VALUEI"VAL0E*5URVL0(KPERI •PRMT(kPER4 I I 
00  SOOO  K • I » I E ND 


vALuriwv*LOnwsRT*ttKi 

CONTINUE 

value* VAlUE»SORVLOUPERU  ( I .-PRHTIKPER*!  7 7 
100UT*kPCR« |0000*NBRSPC |R)»I00*NBHSPC|NI 

•••RES  KPER  *"-N  •*•• 

WRITE  19,400)  ARCID.RES.IDOUT.VALUEI 
IVALI*  A VALUE  1 • I ODD 

WRITE! 8,  I 21  ) IDOUT.IRATlO.JRATlO.TTOURtNI.TToURIM ),  ARCIO,  IVALI* 
APERwKPE  R ♦ 1 

IE  ( KPER.GE .NTRS I RETURN 

continue 

•••NOW  CHECK  EOR  OTHER  SPECIAlTT  ••• 

GO  TO  600  

ENP 


XI I -51 


l'iirnniL’u 


CALLED  art  MAIN 

TTfCliW  AUffUMtNTS I N6nT 

CALLED  routines:  (PHASE iJPHaSE 
OUTPUT  FILES!  -- 

V - ODEOAuOOI. 


Llll . l.jilU  1 1 M 


uiiiifl'ni'i 


side  chapter  or  the  b-vector  for  the  matrix 
®ENER*  TOR  * 5 CREa  , TRCB  CBRTRATRT5  AND  UBSrr  “ 
TOTAUTH'AND  UR----  CONSTRAINTS. 

DATE]  IS  *PRIL  7* 

authors i he j j,p.  tmqmxS.maj  j.w.  olsoNiMr.  r.l.  bronn 


U.s.  ««"T  CONCEPTS  AHALTSIS  AWIRLV 

8 1 20  HOOOMONT  AVENuE 

BETHESD*  .MARYLAND  200|R — — 


iiit.inmii, 

INCLUDE  PROCI 


••••♦format  statements***** 


format  i *rhs* , i i * . *b-vector*  i 

“ftjrmit  fr r , t h. vector* , 7*t»tptj r r 

IFI2.JI 


I F 1 2 . J) 

FORMAT  TRR , tb- VECTOR* i 2*. 'TOTAUTH  . , 2 Jt , n 2 1 3 1 
FORMAT  (‘tX,>B-vECT0R'i2».'UR*.2J2.RX,F|2.J» 


WRITE  19.101 

1 LND*NTRS* | ~ 

RHS  FOR  CREa  AND  TREQ  CONSTRAINTS  UP  TO  L»ST  TEAR 
00  "SO  J*  i ,ntRS 
L*  J-  l 


CALL  iPHASElM.fROl  B SESmENT 

I NDCX  »TM»  1 1 » t END  » J — — 

VALUE2*FL0*TIRE02* INDEX) I 

IPTI5EG.E9*  TT  VALUE?  * V*LUE2»SARRATTirj 

IF  IL.ES.O*  GO  TO  30 


• r I «U » V JU  

IF  I JsRADE*E8.f .ANd.l.LE* ICHjI  GO  TO  30 
VALUE  | SFLOATI  RCOl  ttNOtT  IT 
IPUSEG.Ea.il  VALUEl  • VALUE  t *SARR»T  I M | 

♦•••••CRE8******  »*>»**TREO»*A*»* 

WRITE  (9,201  L.NBRSPCIMI  ,NAME(  I I .VALUEl  ,NN,L ,NBRSPC(MI  , 

NAHEI2I  .VALUE2 

GO  TO  *0 

T3(, J.  it*.. 


r 


JO 


no 

so 


ir 

if 


WRITE  I9,20|  L ,NB«SPC I " I ,N»Mt I 2 I , VELUE2 
CONTINUE 
CONTINUE 

| JGREDE.EO.S)  00  TO  »2  B XOt  00  Nor  RtflUtRt  CRCO  T*LUCS 

I JGNEDE.EQ.JI  00  TO  95 


I So 
200 


TT  IJCOlPr.TO^yKNOUCHOtCE.TrTRSI  GO  T0~  95 

c nms  for  creu  conStheints  in  lest  te»R 

00  *0  NR  I .NSPCx  ~ — * 

CELL  I PMeSE l N * 160  I B SEOHENT 

|NOE**IH.I|»I*NO+NTRr*I  

WELUEI*FlOETIReUMINDEX)I 

— trrryco vro^T > trloei—r-velue i fserritin) 

WRITE  IT, 201  NTRS,NBRSPcrNI(N*"EII J fVXLVEI 

60  continue 

It  IF  IISES  .GT.  1 *ORi  JGREOE.LT.  (ft  GO  TO  *0 

C RMS  FOR  CONTROL  °F  INPUT  FOR  SPECIFIED  SPECIeLTIES 

do  ii  h * I ,ogoTOo~ 

oo  rj  R«l  inspec 

if i nprob i hi .ne.nbrspcik n go  to  73 

JmK 

go  to  tr 

73  CONTINUE 

C NO  "*1X0  ON  sOtClRETTT  7J0HFETR 

RETURN  0 

c •••••UBSG»»»R»»  — 

7R  NH1TEIT.2I I IZERO.NPROBI"! .NEMEI6I .UPSNOIJI 

7*  CONTINUE 

HO  if  IlSEG.EU.II  GO  TO  96  B B MEHCH  76 

C R"s  TO"  TOT  EX  EV^WORtrCfr  CONS  I R E I N IS 

?5  EuTh»  »uTH"x I jgM*DE  I 

IFI JGR*OE»LT.RI  *0  TO  91 

oo  »o  " * i .nbrRro 

tFIISCG.GT.il  EUT"  ■ *Ul"  - UPlSNDtNl 

90  continue 

91  BR1TET9',  221 IUTH” 

9*  ifi jsreoe.lt.ji  Return 

c 


RHS  FOR  RET  ERC  RELETIONSHtP  cONSTRItNTs 
NSPEC*  • "SPEC  - I 
DO  100  " * I.NSPCCI 

CELL  IPNESE I " .*100  I 

n ■ t i I — — 

DO  lol  N • mh,nSPEC 
CELL  lPHISElN.llOl I 
CELL  JPHESE|M|N.*IO| I 

IFU5REDE  .GT*  31  GO  TO  ISO 
IMtuTILIHiNI  .Ll.BBI  GO  To  200 

tFiruTlLIN.Nl .Ea»BB.«NOTTUTrC|HT"t .tT;B8 I**  T9~70U 

GO  TO  101 

lFIUt|LI",NI  .LT.8SI  GO  TO  200 
IF  I uT 1L I" IN  I .EU«»B* ENO.UT IL I N,N I ,LT.*B I GO  TO  200 
Go  TO  !0| 

|NDE*  ■ IH-| l.lENO  *1 

U1N0E*  » IN-I|*TE1«D  »t — 

V ELlJE  I • FloET|REU2I  INDEX)  ) 

VALUEZ  • FL0ETIRE02I JINDERM  - 
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C 


REUUIREHENT3 


Bl  a I V ALUE  1 ♦ VALUED  • 0.025 

c IE  B1  6E  SMALLEST  RE9UIRENENT,  SET  BI.H2LT  Of  SMALLEST  Rtj 

ie  isi  .it;  hin  muon .?7n.uE2Tisir TiTTin  

B1  . >5  • MIN  IVALUEI iVALu£2) 

TOT  CONTINUE  

NH|T£IT|2J)NBHSPC(MI  . N B R SP C I N | iBI 

TOT  CONf i RUE 

100  CONTINUE 

"RETURN  

END 


nn)r>  n 


SUBROUTINE  ROWCH* 


c 

c 

c 

III 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

10 

20 

MO 

so 

ss 

s7 

T 

c 


T 

C 


SO 

c 


70 


• • 

• 

CALLED  BT|  main 

r 

• 

• 

• 

Call  t n m arguments!  none 
called  rdutinesI  iphase 

• 

• 

• 

* 

Output  FlLESI 

i 

« 

"•  ' 

• 

• 

• 

• 

• 

OAUDO  1 . 

S - STD  PRINTER 

PURPOStt  OtFINES  TTPt  «N0  N*ME  OF  t ACM  FtflU  CONSERVATION 

node  caPacitt.and  control  of  input  constraints 
16020 ,C»E8 .TREO .TOTAUTM.urStG  NESPEXT t Vtt T I 
»nd  The  cInc  and  linc  flow  control  constraints 

— • 

4 

• 

• 

• 

• 

• 

• 

• 

^UR  ALL  6NAUE5. 

oates  is  April  7* 

AUTHORSI  *AJ  Ji0»  TH0»a3;MAJ  Jaw.  OLSON i MR . 
COMMANDI  U.s.  army  CONCEPTS  ANALYSIS  AGENCY 

R ,L  A BROWN 

• 

• 

• 

• 

• izo  woodmqnt  avenue 
BeThESD»iMARtlAND  2U0IR 

• 

• • 

INCLUDE 

w ” 

PROC  1 

•r*»*F0RMAT  ST*tENENTS»»»*» 

format 

format 

format 

format 

1 ix.Al .2*1 1 N ' i J 1 IJ2.1M) 

I 1 A,  <E  n'  , J|  , J2 .AM  1 
ll*i'E,.2A|*WO*|J2#*SOZOtI 

I I A, •£• »2***W0» 1 J2» 'LINC* I 

format 

Format 

1 1 X t • L * *2^i*W0*  1 

1 I X % *L* .2*  # • TOTAUTH  • ) 

.••••••GENERATE  ROWS  CHAPTER 

IF  | J8RADE.LT.3I  00  TO  »0  B SlCtP  NON  1 1 Nt  1 NON  -mE8l*ND  0020  F 

• ••  constraints  for  wero  prime***** 

00  SO  J*l iNSPtC 
CALL  IPHAStl JliSOl 

IF  I JGR  AUE  • E W • 3 I write  I 9 i SO ) NBRSPCIJI 
••t*60Z0»A*» 

WRITE  I 9 * M 0 I NBRSPCIJI 
IR0WCTI3I  • I ROWCT  I 3 I ♦ I 

IF  I J6RA0E.EM.3I  IROWCTlMI  ■ (ROWCTIRI*  1 

CONTtNUE  • - — - • 

••♦constraints  for  red  at  tu*** 

DO  TO  J* 1 INSPtC 
CALL  IPHASEI J.A70I 
•••••TREu***** 

|TTPE*'L' 

write  i m . i o i _ t tt pe  rrtpo , uprspct  jt  nturm — 

I ROWC  T I 2 I • I ROWC  T I 2 I ♦ 1 
CONTINUE 


80  I BEG  I | 

3Eno«'»tw? 

DO  110  J«l , jENfl 

~ C •STTN0.5  rS  T*E  NUNBET  ~0F  CUN5TNETNT5  TOTT  TnUTDE 

C 99EKCEPT  T-0.*HERE  |EnD  >9,6  T(nTRS-||  PHCRE  CONST,  j-s 

TiW55 

K«J”I 

IF  l'R*.T8.lNY*r-in  IBESjN.J 

oo  ioo  m*i»nspec 

CELL  i?HrttTH,*lDO) 

K»  J-  | 

ir-T«r;r«;u»iTii5".osMUE.5T. J)  iinoer 

IF  IK  .LT  . 1 ChG.ENO.JGREDE  »LT • j I lEND-l 

TTWRIp — 

DO  90  L* I BEG  I N » 1END 
K » T- 1 

IF  I JSR*D£.ES.*. AND. I L .£«. 1 .OR.t.EU.S) | so  TC  *0 
IT  I jiR»Ot  ,la.  -1.  ENO,  | L.EO.I  .OR.  ( L '•  l IJ.  R . END  . J .51  • 1 CUB  I I I 
l 60  TO  ’0 

IF  I J4R*DE  .to  ,2;  END. I IL.Eg. t «*  NEriU.Ct.ICNOT  .OR!  tLiEO.Zi 
ID. J.EB.NTRSI II  60  TO  90 

IF  U.6T.ZT  TTTTEiTXT  ' 

I ROwC  T I L 1 • IROPCTILI  ♦ l 

IF  TT TTTe.TO.fi.'  | H.J 

PRITE  (F.IOI  ITTPE,K,NBRSPC(NI ,NEME(CI 

90  CONTINUE  ' 

ioo  continue 

iro  ~ continue — 

C ••••CREB  CONSTRAINTS  FOR  t>N«**«»« 

p-Tpcwn.-. 

IF  | JGRE0E.E3.S.0R. JGReOe.EW.JI  60  TO  1 30 

TF  | J6REDE,Ea.Z.*N0.ICff»i6EiNyRST  50  Ttr  TJC “ 

00  120  M ■ 1 .nSPEC 
CELL  IPHrSEIR.VIIOT 
IROPCTin  • | ROPC  T ( | I * | 

- Z Ei  » F|  CRE  fl.  * • » 

WHITE  19,10)  I TYPE .NTrS.NBRSPC I N ) iNEHE I I ) 

120  CONTINUE  

110  continue 

C ^CONSTRAINTS  FO*  LEST  PERIOD  502 ] NTEtsuxOUTE 

00  ISO  J.l , nsPec 

CELL  rPHESE  I JHI90) 

c •••••SOZOP99* 

PRITE  19,201  NTRS.NgRSPCI Jl .NENFt n 
I HOwC I I 3 1 • IROpCTIJI  ♦ 1 

c 

I 90  CONTINUE 

IFTTgre.  NETT  T WR*  TE  I 9.  5 P I 

IF  IISES. 6T,  | ,0M.  J6REDE.lt, 91  RETURN 
00  ISO  J • | .NBRFRO 
c .••«»«.UBSS»*»99» 

HRlTElT.SSINFROBt  J) 

I so  continue 

RETURN 

ENO 


XI 1-96 


• ***• 


BROU 

• called  BT|  main  iimmedIate  return  for  cpts  and  belowi  • 

T — “tlLUm — ARSUHENTSI  NONE 1 

• CALLED  ROUT|NESl  I B | TS i SE T , l PHASE . JPh*SE , OP T • 

oirrRcr  rttrst »- 

• f * ODEQAUDO l • • 


■It*  ntUUNVRn I nil 

• WRITES  ROWCNT  SUmHAry  • 

• WRITES  RTTPE  CONSTRAINT  NAMES  • 

• TJATeI  IE  APR TL  n 

• Authors!  haj  j.o.  thomas , m a j j.w.  olson, mr.  r . l • brown  • 

1 COHmaNBI  U.5.  ARHT  CONltPTg  AN  ALTS  1 5 AGENCT 1“ 

• 8120  WOODMONT  AVENUE  • 

• BErmrsoA-.-HARfimo  zoun • 

• • 

include  proci 


INCLUDE  proc 

Integer  alosisoi 

iltitllillit  TWJTSil  lllimilM mitt 


*R»»»roRHirT -5TTrtirrTrrTrr»»*~ 


format  i imi  , 'restrictive  plow  codes  For  sraoe'iIJi'  at  tear  ',ij, 
r t ■ » COOtS!  0 ■ RO  FtOlT  1 - norn*  CONSTRAINT)  ~2  -ptLttE  CPPr»-|~ 
• • J • UPPER  BOUND  • I 

FORMAT  ! IMTj.'SRCCIALTt  ♦ , T7721  'SO  1 3 I 


Ioentifts  last  arc  leaving  a node,  is  redundant  to  restrict  flow 
IF  I JGRADE.lT.RI  return 

tBBVwl  — 

Un  o«*spec 


DO  70  L«1 (BSPEC 
CALL  IPHAStlL.SASl 
DO  AO  a«IBGN,IEnd 
IF  I |BlTSIRTTPt,M,Nf.lT  HU  TD1D 
J I wR 

CONTINUE 

CALL  SET  I R T Y PE  t J l ,21 
IBSNA ICND’I 
I ENU. I BGN‘ I NSPEC- I I 

continue 

CONT |NUE 

<II*«  ITTTI Himnil mmn 

DO  I 10  J.I .NTRS  


If  I IB  I Tst RTTPE i INDEX  I .NE , I I 60  TO  90 
LOC*TK*,OOOtrT»TNHTJ5l'CTin  *T00 1 *NBHSFCnm 
NR  I TE  I * i I 0 > lOC 
I«OWCfT«T  ■ n»°iTCTl6T~*~“J 
CONTINUE 


CONTINUE 

i * t hi  i i i 4 niiiTiin 

M • I 

K7WN5PEC 

|F( |0PT| IRO I «LT» > I RETURN 


U 1 -*u  J"  1 I n 

K»J*I 

write  t*,3or  corner, 
00  130  H«  l • NSPEC 


S REDUCED  PRINT  OUTPUT 


CUT.  TPH*SttR,*12»t 

00  120  Rx*RIiK2 

|20 

»L05lK»"M*ll,|BITT>IRTTPt,K»l 

continue 

125 

write  It . 50 1 WBRsrttWT.  nrLOSTRTTi-rrwt  INSPECT 
K|*K2*I 

i In 

R2«K1*1N5PEC-II 
r OMT  1 Nilir 

c 
r 
c 

c 

~v 
c 
z 
c 

~zr 
c 
"X 

c 

X 

c 
c 

X 

c 

“C 

c 

DIMENSION  4(71  |PARTBU  l»l 


trrrr  *>»wTBLAr»iTt»toioir> 

• 2. 1 > I2,0»D»3» 

* Ji  1 * UiOiO*Zi  ▼▼▼?▼/ 

REWIND  *4 

100 

C *TE  SUPENJI l|0Oi»J00|T il.PIRTBL  1 

REadIRiTOI ,EN0*200.ERR*2U0 1 A 

90t 

FORHRTI 3A2.RA61 
CAUL  SRREU».7l 

200 

TiD  TO  lou 

CALL  ssort 

— ICO" 
JOI 

REWIND  T 

call  SRRET|A,Nt*SOOl 

t»0  TO  30 1 

500 

cont i nul 

RETURN 

ub  routine  ioimr- 


SUBROUTINE!  SORT* 

XULCtPTTI  MIN 

CALLINS  AR4UMENTSI  NONE 

Z rcrflT  UPPTlNEil  SOREN.SMtl  .SSORT  .SHRET^ 
INPUT  PILlSI  • <t  “ ODS4BUDOR* ___ 

OUTPUT  PILES!  - R - 0DS»PU00R* 


purpose!  the  purpose  or  this  Routine  is  to  sort  the  n- 
To  the  "-Records  produced  bt  fhps  in  the 

ggLUft0N 

CREATION* 


PRTEI  IS  »PRIL  T6 
AUTHORS!  HAj  J • D • ThOMaSiHAj  J.W.  OUSoNtHRi  R,L*  BROWN 

Ttrnmmrr  -tftS>  >rht-  txmr tm  ***tTs+»  r«*«Y 

B 1 2 0 MOODNONt  AVENUE 

— BerHEio*tT»»(rrcRW  rost* 
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call i ng  aRsumentS;  none 
CALLED  ROUTINES:  SOPEN.SRREl .1 
input  files: 

*»-  005 APUDU8 • 

* P - ODSAPUDOP • 


OUTPUT  files: 


ODSAPUDOP • 


PURPOSE!  THE  SUPPOSE  of  THIS  ROUTINE  rs  TO  SORT  THE  XT- 
RECOPOS  FHom  the  H*TP|>  GENERATOR  CORRESPONDING 

TO  “THE IT-  PECO  TP'S  PRODUCE!)  ST  THP5  IN  I HE 

solution  file  and  ado  theh  to  the  odsapudop 
pile  in  pnepapins  fop  the  oat*  bast  creation, 
oate:  is  appil  t a 

AUTHORS!  "AJ  J.D*  THOMAS, HAJ  JnFi  TTLSONpreL  H.-Li  BPOHN 
COHHtNO I U.S.  army  CONCEPTS  AN»lysIS  »6ENCT 

ST70- BOOOHoNT  AVENut 

betheso*, Maryland  200|p 


DIMENSION  AI8I .PARTBLTtTI 
OATA  PAPTBl/ 1 , I I I 2 ,0,Oi l , 

r‘  2,1  U2.U.U.2, 

• 3, 1 < 12,0,0, 3, 99999/ 

REMIND  8 

CALL  S0PEN3I*! 00,8300, 8, 3, PAPTBL  I 
READ18,»0I ,ENDA*OO.ERR«2O0I  A 
FOPMATl 3 A 2 , 5 A 6 I 
CT 

NO  TO  100 
CAlL  550RT 
CONTINUE 

CALL  SRPETIA.N, »500I 
NP | TE I P ,»0| I A 

— 00  TO  30| 

CONTINUE 
ENOFILE  P 
ENOFILE  P 
RETURN 
END 


XII-100 


rUNCTtON  V*l ID  ItSFICJ 


nolo  rJonin 


SUBROUTINE  cOMSI" 


• SUBROUTINE)  COHBlN 


- O ' • UR  !«D" 

• CALLING  ARGUMENTS:  none 

r CALLED  ROUTINES!  NONE 

• INPUT  files; 

• - H-* '"ODSaFUDO'T* 

• - 10  - TEMPORARY  file 


• - 7 - 0DSAPUD07 • 

» PURPOSE  t *E*1E  ~THE  ~TW0  ~tNPUT^-F  I LES  TB  PRODUCE  THE-  INPUT 

• file  for  the  current  segment  database* 

» DATE!  IS  *PRTL  7* 

• authors;  maj  j.d«  Thomas »maj  J.w,  olson(mr.  r.l.  brown 


*120  woOomqnt  avenue 
• ETHESO*  .matTTLAND  20011 


DIMENSION  IvAL(3),IN(10Ii10UT|I0I,ISAVE(1UI 

DATA  rWT7TU*D7 

REAO  FMPS  produced  DATA  RECORD 

RE  A 0 1 1 0 1 SO  I . END»^*SPt  t TTPC ; AtPT*  A , ITR 1 tSPECTnSPtC2 . I 5CG  I I 9AL  i 
• INDEX 

fprhatiat.ai  ,ji  ifj2TJ2i^»ur?iTzrJvr 

1 F I ITTPE  .ne.*R*>  oo  TO  s 


"X — 

c 

-wtr 

WOW  -fftCOWD  - — -WOW  WECOWPS  OUTPUT  D~ 

no  further  action  requiReo  at  This 
WW I TTt  T i 9XJ 1 HTTFf  i*Lnr*HTR,T5Fm 
GO  TO  1 

rPtCTLT  TO  FILE  7 

POINT 

, t spcc2  i tsesi  time — 

c 

5 

CONTINUE 

C 

rr  l A L WN  A • NY1  * * * I GO  T"0  2D 
•••*•  ROUTINE  FOR  X PREFIX  COLUMNS 

1 r 1 [ S” tC  1 • Ew  # u ' wu  TO  •> | 

IF  I1TR  .EG.  9)  60  TO  Si 

c 

in  sEOb  I5FttZI5w  TO  51 

T - RECORU  DATA  CHECK 
I~P  TKIrPHA  TEU  • * T*  l AND  . MSpECHEUA' 

1SPEC2I  1 fro— TO  51 

T-M-M  RECORDS  WRITTEN  OUT  IMMEDIATELY 

CHECK  IP  NEW  RECORO  tO  E8UAL  TU  PREVIOUS  RECORD  +0 

IF  | ISET.EO.I I GO  TO  23 

REAO  PATRIX  GENERATOR  PRODUCED  DATA  RECORD  

REA0<R|?02,ERR*Bl|EN0>SllJ!NDEX>|N 

-PORWATtAS , H , R1 | I IS. It , IS  > IR , |S, |R  I 

IS  SOLUTION  RECORD!  INOEX  I EO  MaTR|X  GENERATOR  RE C ORU I J I NDE X I 
TES  * GO  CHECK  WHETHER  a X OR  T RECORD 
NO  - WRITE  TO  FILE  7, And  READ  NEW  SOLUTION  RECORD 
IF  I INDEX. Et).  JINDEXT  GO  TO  99V 
SOLUTION  RECORO  DOES  NO*  MATCH  M.G.  RECORD 

- TSET  ■ I — — 

GO  TO  SI 

continue 


c 

-IHH.MI  »NT  i~rT*  T~  6U  TO  3*0 

T - RECORD  ENCOUNTERED  " NEED  ADDITIONAL  OATa  froh  odsapuoor. 
REtS 1 R .ROZ.tRR.Sl .END-51 IFTNDET . ISaVE 
IF  (kINOEX  .NEt  UlNOEXI  60  To  *00 

TT  HTIYXITT  • ofTST"  TO  VTTTTr 

IF  (|N(8l*fiT*0l  *0  TO  3l5 

INlfcl  • 1 51 vE ( 1 1 

INI*)  • 1 S*  v E < * 1 

JIO 

'50  TO  3*0 

INIFI  • ISA»EI7)  

tRTiv  » mvETir 

60  TO  Jio  ____ 

-ITT- 

INIEI  » i**vri?i 
INI  lot  ■ ISAVElH 

c 

j?nd£*IRECORD  SHOULD  BE  BRITTEN  OUTtBACK  SPACE  SO  THAT 

~c~ 

300 

KIN'OI*  RECORD  C AN  be  herd  AG*  P*« 

backspace  <4  

HU" 

C 

1 51 T ~*~0 

RRITE  record  WHEN  INDEX  •to.  JINOEK 

♦ 07 

»RJ  ttlfi  7tT7  J I T rpt  ,ILPW*  > t TR  1 1 SPEC  1 ■ tSPEC*  i 1SES  i tTIL  , JN 
FORMAT  1 A 1 |A| 1 J | |*J*|J*|1JI*«RJ1 .JS.JRiJBiJR.jStJRI 

c 

GO  to  1 

write  record  when  Index  *ne«  jlNDfcx 

"51 

WRITEI  T".RD>  1 mPt.ALPHAUTR.HPECI  ,HFU.IiHt«i  i»»L.  1 vrt>7 

60  TO  1 

»ttt 

ITTOFTLE  7 

ENDFILE  7 

niUfitD  T 

RETuRN 

-nro 
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nr»|  r o 


• 

• 

PROGRAM 

database 

• 

• 

• 

C*LLED  U0UTIN15J  NtW5IV»C0HBI*»«tCOWU 
INPUT  ML^SJ 

~1 

• 

• 

I 1 • tODDBSUDI • 
18*  ,ODS*PUDl 8# 

~9~ 

• 

• 

7 • » 0DS*PU007  0 
H • .OOS^PUDON , 

1 

• 

• 

• 

OUTPUT  FILE! 

3 • , 0DS*PUD03. 

— * 

• 

• 

7*  i ODS*“UD07 • 

• 

• 

• 

purpose : 

this  program  reads  the  fmps.  file  iodobsudii 
and  extracts  the  resuities  data  tor  the  database, 
combines  it  with  the  matrix  generator  data 

• 

• 

9 

• 

TILE  ( ODSAPUDOR . 1 AND  PREPARES  A SLSmENT  DATA 
base,  it  then  combines  tme  seshent  data  base 

• 

• 

• 

WITH  THE  CUMULATIVE  DATA  BASE  AND  PRETAWtS  A 

temporary  updated  cumulative  data  base  for  • 

• 

• 

date:  is 

"NALT51I*  ( OOS APUD03  » • 
April  76 

• 

• 

• 

AUT  rt(TR5T 

command: 

MAJ  J.D*  T HOM  AS  »MA J J*W#  ULSON • HR • HtL • Bkuwn 
U,S.  ARMY  concepts  ANALYSIS  agency 

— 8 • 

• 

• 

*120  HDODMONT  AVENUE 
BETMESD* .MARYLAND  2001N 

• 

• 

* 

CALL  NEMSAV 

v this  routine  reads  the  solution  file 

call  COmBiN 
call  record 

B THIS  ROUTINE  COMBINES  30VUTION  XNO  WATRII  ttatt 
w This  ROUTINE  GENERATES  I-P  recoros  for  oata  b«se 

STOP 

END 
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Iltllll  Milt  in  id  •!  1 


probrsh r oracorrect 

CALLED  BTl  none 


CALLED  ROUTINES!  ER T R AN 

INPUT  MLCSt  ODJAPUDOI “ 

I JO.  TEMPORARY  RONS  OATA 

I IT  ■ TTNP8TURT  COLUMNS  DATA 

output  ficesi  zji — rtHPorriRY  runs  «nu  columns  data 

PURPOSE  I THIS  program  adds  THE  ACTIVITY  OF  N I NyRS I --CRES 

— TONSTRAIRTT^tTrTHE  ACTIVITY  of  the  inj. 

ARCS.  FILE  22  IS  NOT  mRITTEN  UPON  NHEN  SRAOE 

tested  In  the  pfcaa.dB'hodify  runstreah 
datei  ib  April  t* 

AUTHORS  I HAJJItJT  TWDIYAS.WAJ  OtRi  OtrSOR.TTRrRiVT  SRORN 
COMMAND!  U.S,  ARMY  CONCEPTS  ANALYSIS  AGENCY 

•i 10  wuuongHT  NUt  

BETHESD*.  MARYLAND  2 0 0 | ** 


INTER  tR-RTRT 

integer  savEI 1001 

REAgTIt ,TOOt*SPECyRTRS, JORADE 

FORMAT! 12.JAiI2.JTAi!  I I 

|P  TJRRADl.E«4BI  RD  TO  2UU 

•••READ  RON  RECORDS**** 

RtAD(EO.TTOr*RU»ttroTt«T* 

FORMAT! A2.J1 tU2,J2,J2i 3J1 2 t JR I 

•••TEST  FOR  RtWTRST •*creR  RECORD*** 

|FIA(II.NE.NTRSINR|TEI22,flOIIDiA 
- i*0TMirn 

I F I A I I I.Eq.NYRsiSAvEi  I ND E X ) • A I 5 I 

♦•♦SATE  ACT  ITT Tf  VALUE  <JF  Cfff R RCgORg*** 
60  TO  1 

•••REIO  cOtUHR  RECORDS***  

rEADI2I,V|0|E NO *1000110, A 


1 F « A I 1 I . NE  * * ' <*0  TO  100 

ib!Mfct^<4>/iA. 

I F C I GUAM.  LI.  JQRRK)  MM  Ttf  EE, S10)  IB.  A 

irnSRSrtrjSwiiJoo  To  Too  

1 NOEA« • I 2T 

•••ADD  ACTIVITY  of  CREO  RECORD  TO  Z9 ( »n-- I RECORD** • 
ATST^ATSMSATEI  |NOt*» 

•••INSURE  THAT  ACTIVITY  .lE.  UL*«« 

— rPT-tTST.Rn»*TtT«tSl»A<TI 

nRITEI22,» 1 0 » ID, A 
60  TO  100 

••••HSETC  A'Tl  •••••• 

CALL  ERTRANtT. JSR*Ot 1 
ENDFILE  22 


REMIND  22 
STOP 

tno- 


XII-JD5 


f 


INPUT  FILES!  - V - 0D5APUD0  7 UR  ODSAPUOU3 

output  FILES;  maScumseg 


MA5CURSEG 

purpose:  This  program  reads  the  card  image 


‘SCURSEG  or  NASCUhSEG. 

IS  >PRIL  76 

rs : 11  a j j , [i . Thomas, mAj  j.*.  olsoNimr.  h,l. 
nd:  u.s.  army  concepts  analysis  agency 


dimension  IbUFI  1 ® U 7 ) i IF 1LEI2I  , I LOG  ( |M| 
data  IF  ill/ 'MAS  •('  ' 


I RE  CS  Z ■ I R 
1 BLKSZ ■ 1 20 

IRtCNO* 1 

Gaul  DPEnsi'mas  * , 1RECS2  , I b L A S Z , JBUF ) 

S RE  ADI  9,2U,flD«|U  I I 1LOC  I 1 I , I • | , I R I 


SUBROUTINE  M*SHCM»LPH«l»LpR»l  .BETA.t.UGRADEI 


output  files:  none 

purpose:  checks  »ll  prcoprs  fro*  oonnsurt,  'c  that 

eOTOf  LINT , CTN'C  « P-TTPF  CONSTRAINTS  FOP 
ALL  GRAnrS  CAS  Br  EKCLUPFP  from  THF  _oa  ta 
nsT.  attottionallv , cwrcKs  top  rfs  ttpe 
constraints  tN  fiflo  r,.p«nF  segmfnts  so 

THEY  MAY  gr  FtCLUPEO 

date : is  April  ta 

AUTHORS : H*J  J|D»  ThJhiS|HAj  J>»>  UL5QN»HR«  R,L«  < 

com-snd:  L.s.  army  concepts  analysis  agency 

B|2Q  aQOOMQNT  AYENqE 


IFIALPhaI  . 


I ELD  GRAUESi  "A5K  OUT  RES-"*-*  gunsikaj 
IFUGRA'iE  « G I » i .ANU.ALPH  a .eu.  'res*  iketukn  r 

R E T J R K 

enu 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

T 

c 

c 


c 

~t 

c 

c 

c 

t 

c 

-X~~- 

c 

t 


- ROS  - 
»o; 


c 

c 

c 

10 


SUBROUTINE  nEWsAV 


SObro’ut  fHE"!  nEn5*V 

called  BTl  database 
CALLED  R0UTINE5!  NONE 
input  pilEsi 

5 - card  reader  \ r*  of  grade  and  segment  id 

II  - ODDBSuOI. 

OUTPUT  TTCTTT 

|0  * TEMPORARY 

PURPoSe I THE  PURPOSE  OP  THIS  PROGRAM  is  TO  create  a card 
Image  tile  prom  the  pmps  oyp  pile, that  can  be 
COMBINED  PITH  SELECTED  MaTRIS  GENERATOR  OUTPUT 
(PILE  OOSAPUDONITO  PRODUCE  an  INPUT  DATABASE 

piles  to  produce  oosapudot* 

DATEI  is  APRIL  7A 

AUTHURSl  MAJ  J.D*  Thomas, MAj  J.W.  OLSON, MR,  R.L,  BROHN 
COMmaNDI  U.s.  ARMt  CONCEPTS  ANALYSIS  AGENCY 
■120  poOOMqnT  AVENuE 


DIMENSION  LI  1 R ) • IHURI6I  , 1 V A L I 3 I .NExTINSA)  ,NAmEI2)  , ISAVEIJ) 
DATA  1/0/ 


L IS  OSED  P5R  NTCORD  SET^tNrrrgmilTNtN  BLOCHS 

ME  A OE  R is  USED  TO  STORE  BLOCK  INFORMATION 
I V A L CONTAINS  DECODED  NUMERICAL  INFORMATION 
NAME  IS  The  RON  OR  COLUMN  RECORD  NAME 

1 5 A v E IS  USED  IN  CHEB  AND  TREQ  RECOROS  

SOLPIL  IS  TmE  solution  pile 

NTT T I?  EOiJTVTCtTNcnr  mOLTTC 

I HR  |S  IGUI^ALENCed  TO  Hdr  IPIHST  3-dp  PORDS  in  RECORD) 

DATA  L/IS,2P,3T«5|,*#IB»J0,<(2,SR,»,2),33,NS<57,J2,3«(,3A,‘lB,6D/ 

DOUBLE  PRECISION  50LPIIIZ2B) .HDRI3I 

EQUIVALENCE  I SOLE  I L I I > ,NEKT III  I . I HpR I | I , |HDR ( I II 

FORMAT! m — 

F0RMATI2! I ) 

read! I I 1 HDR 

RE  AO  I I 1 I MUR 

RE  Ao ! S , ROT  I UgrADE.ISEG 
DO  10  I ■ I ,R 
1 BGn  * I I - I I «ST  • r 
I E no  ■ 1 Bun  ♦ s b 

REAoIHIHDR.ISOLPILIKI.KmIBGN.IENDI 

••ittpe  is  esual  to  ro»s  on  colu»* 

1 TYPE  • IMORIII 

• •CHECK  FOR  East  RON  Or  column  record  , I HoR I 5 I *Rn»» 

tp  rit  is  negattvt, i-kfn 

IP  ( IMURISI .GT.OlGO  TO  RRT 
CONTINUE 
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1 2 DO  20  I • I . NREC 
TGRATJE  • JGR4DE 
ISEGX  • ISEG 
K5PeC*0 
J • |2*l 1-1 | 

NiHEI  I I * KttXt  < 2»  J f I I 

ALPHA  ■ .A* 

ALP**!  • »*• 

BETA  ■ 

c — ••IHA5K  out  objective  ruu* 

DECODE (9, 9|B.H*MEI||I0BJECT 

ttb format  i am  i — — 

IFI0BJECT.E8*  'OBJE'IGO  TO  20 
£ •••HASK  OUT  U*  C0B5TB1INT5** 

DEC00EI9,9iT,NAKE( I) ) UR . NBR 

9iT  FORK* T I ZA2I 

IF lUR  .EQ.  'UR*  ) GO  TO  20 

C A9PTTEHH1NE  *t5  OR  ToT  UAT»»» 

DECODE ( 8 1 9 | o.NAME I I I I ALPHA  , delta 

910  FORMAT  143,411 

IE  1 ALPHA.NE • 'RES*  .AND. ALPHA  ,NE.‘tOT<I 
A 0EC0DEtR,90J,NMEUTI*I.PHAI  jtTRirSBtt'- 
NAME I 2 I • NEXT  I 2* J * 2 I 

DECODE M ,9 J ] ,NA«E | 2 ) | BETA 
9tt  FORMAT  IARI 

CAUL  mASKCK(ALPHAiALPHA1iBETAi*20,JGRAdEI 

C •***RES ret:ord»*»* 

IE( alPRA.EO. 'RES' )G0  TO  21 

— TO rrnrmnr  —.tie.  'Tot’i  go  to  hmb — 

C •••TOTAUTH  RECORD**** 

DECODEH  ,905.R*«EH  n ALPHA 
1 rR* ' 0 • 

ISPEC-0 

KEY-0 

60  TO  850 

B*I5  DECODE  (9. 903. NAMEIIIIALPMA.ITR.ISPEC 

903  format  mmrrrt 

name  I 2 I • NEXT ( 2* J ♦ 2 I 
RET  ■ ELD(0,4."**trz; > 

IF  (ALPHA  .NE.'N'I  GO  TO  BOO 


C ROW  RECORD  (DETERMINE  C*EQ  OR  TREB| 

.IE  (KEY  .ne.  'wwBjut'140  To  850 
(GRADE  - JGRAOE  * I 
ISEGX  • ISEG  *2 

GO  TO“BSTr 

c *»*wo--ubsg  record  ie  equal* •• 

boo  ifiret  .eo.  •««ee9u,t  ao  to  *so 

C •••COLUMN  RECORD  X.T.W  OR  XNa •• . • 

825  OECODE(2,90R,NARET21 IKSPEC 

909  FURmAT 1121 

rsEGl  r t 

If  ( ALPHA ,Ea. > X •• AND.  JSPEC.EQ.RSPEC)  ISEGX'ISEG 
IP  (ITR  ,E0.  'N»  1 itr  ■ *9*  


XI I -no 


I 


- rr  ritTHIiRt-,  ry  t 50"  TO  BSD 

[GRADE  • JGRADE*! 

ISEsk  • 3 

If InsFEC.NE .ASREC I |SEG«  ■ 1 5E G ♦ 2 
GO  TO  850 

B&O  00  25  » • 1,3 

inrinfKS  TJTTr.n«_^i 


I f | NEXT  I MkMC  I >EQ.  • NONE  • I SOLE  |L<  J»K*3|  ■ 0 
tVALIM  ■ 5oLFlL»J»lt»31  V .5  S RCUNIT  OFT  RULE 
IF  | K e ▼ .IQ,  •WBWwUC'l  IStVEUl  • IVALlKI 


25 

Continue 

|F 1 KET.nE , •«B»WBT * 1 GO  TO  28 

C 

C 

TREQ  BEcORD 

save  DIFFERENCE  BETWEEN  ORIGINaE  ul  and  ACTIVITY 

of  treo  record 

c 

jV»LI  2 1 a I VAL  131  - 1 VAU  1 | 

SET  T RE  Q UL  30  TREQ  UL  - C R E Q UE 

c 

I V*L 1 3 1 - 1 V AL  f 3 1 - ISAVE(3l 

SUBTRACT  CREQ  ACTIVITY  FRO*  TREQ  ACTIVITY 

28 

I V A LI  J ) « Tv  Al  T I T-  T5  A'VFT]  T 

KEY  • 0 

902 

IF  1 ,EQ • • RE5* ) GO  TO  21 

WHITE  <10,9021  1H0H ( 3)  , ALPHA,  I YR  , ISPtC  ,KS?tC,  IGRAOE , 

I SEGA , 1 VAL 

Format  I2A|  , A1  ,2J2,2I I , 3 J 1 2 ) 
GO  TO  20 

c 

21 

A»CHANGF  HPITFS  AO  TTY  ITT  ~VTLTTr  TO  RLU5  FOR  "RES-i- 
IVALlll  ■ ABSISOLFILl J*3I  1 » o«S 

WRITE  I 1 0 , <T  | 2 I I**DR|  3)  .DELTA  .BETA,  IGRADE,  ISTG*.  IVALTH 

912  FORMAT  I A 1 , < V • , A I , A«  , 2 I I . 3j 1 2 I 

20  CONTINUE 

GO  TO  I 

r»7  do  30  fiirrr  * iriR 

c ••IHQRI6I  IS  EAST  WORU  USED  IN  RECORD  FOR  D A T A • • 

IF  (iNDRIil  ,EU.  LINRECII  GO  tO  12 
30  CONTINUE 

endfile  10 
endfiee  to 

...  — rtwiro  rt» — 

RETURN 
END 

I ' 


i 


xi  wn 


CALLED  ftyi  NONE 
iNPUt  TTLESTl?  - OflPOPuDn  1 
IS  - ODOOlUDSlJ 

OUTPUT  PILE?!  E - PRINTER 


purpose!  this  Program  produces  tHE  oosas 

PROCUREMENT  RroflRT 
OATE!  I S APRIL  T6 

authors!  MAJ  J.O.  THOMAS  . MA  J J."».  OLSON.  MP 
COMMAND!  U»s.  ARMY  CONCEPTS  ANALYSIS  AGENCY 
Slit)  HOOOMONT  AYENUE 
RETHESDA.  MARYLAND  ? 00  1 A 


6.1.  ftR076 


INTEGER  AMA»TEA8,ER0>L.JII«G80*ACT  

INTEGER  TOTACTI 100) >TCTLCA< 1001 iREgl 1001 
INTEGER  T0TL*SI100I 

parameter  nbRspc-rs 
parameter  nBRCBT»A 
PARAMETER  NBRAES-U 

PARAMETER  NBRftE5«NBRSPC  -NBRlES  - 

PARAMETER  naESPL»NBRaES*2 
INTEGER  BeSNBRInBRBESI 

0 I MEN31 ON  PERC A inbraes, |00l<PERCB|NbRAES,100l 

dimension  raTei7  ,ji  > 

0lMENSl0N  aLLBESI IOO.NaESPLI iBeSMIMI 100.NAESPLI 
LNTEfiER  AllCDijaOl  

Integer  aesnbR*nbRaesi,spcn0R(nbrspci,cbtnbR<nbrcbti 

DIMENSION  TOTl  |2Z  I |T0T2122 I 

DATA  AESnBR/1B,4i,4S,A4,a7»a8»aR'51»52*53iSA»04, 91*73,95, 92/ 
0*TA  SPCNB«/l|.|2'|J'|A<|!>,2i,25,2At27i2B.3|,3S*34,37>A|,A2.A3,AA, 
lA5>AA'A7,AB.A9,5|iS2'S3'5A.7i,72.73i7A,7s*74.T7i8i,e2,BJ*B4>»7,eR, 



DATA  CBTNBR/ II  , I 2 , I 3 , l a/ 

data  BESNBR /11i|2'I3*|A*2|* 28,24,27*28,31* 36 *36 *17, A2*M3*Aa, 
|7l,72'73, 7a, 76,74,77, *1,82,83,87, 881^27 
F0RMATI2A1 , 1 1 t 3 J2  * 2 U 1 2 I 

pormat 1 1 ospec i alTy  number*, i37|Ho,s», 'Paired  **it*.  ’*/ 

SRECIALTIESi'i  

•AX.'QNTT'lAx.'PCNT'tAXi'aNTY’.AA.'pCNT'.AAi'iJNTY'.Ax, 

4'PCnt'/27x,'All  1 • I2X,'*»ES' * J2X, '-CBTAAES* 1 
FORMAT) JH0,J0X,]3,3X,IS,3X,PS«1 1 
FORMATtlH0,5»i' TOTALS', 51, 15, I2X,fS*0«I1x*F5*UI 

POCMA  T I 'OSPEC  TALT  Y T -tl  = 0P  IT  P R«  T*  * . SX  . • LT  <•  .1  MX  . • CP  TS  * . TY  . 
•'TOT  ATTP  U/P  R r0  TOT  RfQ'l 

FORMAT l | M 1 , 2 A X , *0  D S A S PROCUREMt.T 

4»R  £ R 0 R T * t . 

#•  R A R T' , 3X l 1 2 , ' OF  2' I 

formaTi iho,3*x, 'Includes  proration  of  aes  to  all  basic  entry', 

SPFol*AT (|Mo! 37X , 'EXCLUDES  PROBATION  OF  AES  TO  ALL  C0MB»1  «RmS*, 
••  SPECIALTIES'  I 

FORMATl'OSPtCI*LTT,'10x>'BES'i5»*',4*,,»'*30x. 

♦ •PRORATED  AES  REQUIREMENTS*  , 2 A*  ,>•»•• ■ , sx  , 'To^  »L  • / 


xii-n2 


92u 
9 3C 

u 1*M 

9 9b 
9SC 
955 

959 

960 


96| 

C 

c 

I 


c 


to 


c 

bOoO 


6020 

5039 

C 


C 


5023 


5029 

5025 

5030 
5090 


••ONuMbER'  l I 3X , ' RtsMT • » l 6 1 3 i i I 3 l , 2 A , ' REQMT ' I 

FORMAT  ( 1M0 . 3X  , | 3 . I 3«  ,F5.0 . 3x  , U<  F9.C  ,2x  I ,Fb.Q  I 
FORMAT  I 1«0,3>«13iI3>#E5»0,5p*,f5*OI 

r0  Hit  I Im1,  '»  iT'.  »T  .T  I ',.4  •T*irVl.  '■•'’I  • 

•F  to  .9  • I HF1T.9I 

F0996TI|H0il0*i,TOT*E,i2x,F7.o,2X.I6(F5.0ii«l>FT.Ul 

F0RMAT(tH0||0(|tIl3>il5i}liFS«|i3Xi|5i3XlF5>l) 

FORMAT1 IhO>|Ox*i3,3x, (5, 3x>f5'1'3xii5,3x,f5M<3«,  15,3*, r5«|) 
FORMAT! |H0, *00  YOU  "ANT  Ak|T  OPTIONAL  REPORTS  - A'S«ER', 

• • YES  OR  NO  • I 

FORMAT!  |H0, '••REPORTS  aRE  1 ,,  FILE  9 0 A LT  PR  N T • • • , , ) h d , 

•'To  PRINT  The  REPORTS  - TTPE  IN  bSyM'U  VOALTPRUT • , , Pk • , / l mU  . 

••USE  The  EO  PROCESSOR  TO  vje»  FROM  The  terminal*. 

•'  ! . e • ttpe  in  sEd.r  9o‘liprnt*'i 
format  1x3  1 

••establish  LUN  7 xS  XLTER'  ATE  PRINT  FILE** 

CALL  NTxB  I 1 , l . 1 , | , I .6  . 1 ,5 ,0,7  I 
• PT  Tr  I / '**  , 

R E A 0 ( 1 2 | RATE 

RE  AO  I IS , 900 , End* 5000  I lOlPREF I*, TE AR , FROM > To , GRo < xCT ,Ll 
J F I I 0 • NE • * R ' >00  TO  10 
IF |PREF1«.E«*'V' ISO  TO  10 
rE«IFROm)«ACT 

Y*RESI From) ‘Rate  12,  191 

X»FlOAT|«EO(EROM||  - r 

••ci',»ulr  TOTXI  XTTcTRTON  an-  XPM  To  UN r T t 1 rr  L C0'.|T  °r  Mr  s’  « 
'0T4TPAIY  . R»yY|',.1>!  «.  IX  . nxTr  (R  , 1 «,  1 1 
5fa  (FROM!  rT  IT  ATR  .II,  .,.5 

iTTT'  I N'"«T|r  ,B“.  IT  I.  -itr  I?. 1al.Y.«. TOTATP.lt 

SO  TO  I 

aifrom,toi«aifrom,toi*act 

A1T0,FR0M|»aIT0,FR0mI*ACT 

GO  TO  I 

••compute  total  acTIvitt  for  each  specialty** 

DO  5039  JJ. 1 , NBRSPC 
j»S*CNBs I J 0 I 
00  5020  k« 1 , I 00 
totacTij)»toTactijj»aij,x} 

CONTINUE 

CONTINUE 

••compute  portion  of  total  activity  due  to  cut  arms  s aesf.es 

00  5090  JJ*  I II.BRSPC 
J*S»CNf<Rl JJ) 

00  5030  L • I .NfiRxES 

IF  ! J,N£  , xeSnIR  (L  lls°  to  6030 

•• J6AES 

DO  5025  K«| , loo 

DO  5023  »■•  ) (NbRCBT 

IF  | K.NE •CBTNbp | M I I Go  TO  5023 

TOTLCAIol*roTLCAljl*AlJ,XI 

SO  TO  6o2  5 

CONTINUE 

DO  5029  “•| I NBh IES 

1 F I K • Nt  • *E  SnBr  ( ►■  I I SO  TO  5029 
TOTlASijI»TOTlas|JI*AIJ,k) 

GO  TO  5025 

CONTINUE 

continue 

CONTINUE 

CONTINUE 
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• •COMPUTE  AND  PRINT  PERCENTAGES  for  E»CM  specialty* 

00  SSOO  J J» 1 i NBRSPC  

J»SPCNBR I JJ ) 

uR|TE17,R0l>  j 

ALLBES) J.l I»rE8| J| 

aLLbESI J.NbR*ES*2 IPAtLgESI J(NBPAES*2  I * REUIJ) 

toti  inaespl»*toti  in*espu  ♦ reo ( j ) 

••FILL  BESMlN  ARRAY  FOR  NON  CBT  ARMS  

CBTCNK*0«0 

00  SI00  N ■ l i N6RCBT 

IF  I J.E8.CBTNBRIN)  )CBTCHK»1.Q 

CONTINUE 

BCSMIM  J,  | J»RE9I  J) 

BESM|NIJiNBR»ES*2I«#eSm!N(J,nBRAES*2I  ♦RENlUl 
T0T2(NAESPL»,T0T2IN*ES?LI  ♦ RtelJ) 
compute  percent  participation  in  spec  j 
oo  snoo  x*i.nbrspc 

|N0EX»SPCNBR<KI 
I F I A ( J , I NOEX ) .ES.O I So  TO  SHOO 

ABSA*  At  J.INPEXI  . __ 

pERCNT*FC0A  T I ABSA I /F  UOA  T ( TOT  ACT  I J J I *100.0 

compute  alt  b participation  in  aes  bt  excl  cbt  arms 
and/or  AES  pairs 
aESCHK>0.0 
00  5 I f 0 L'liNBRAES 

|F iU.NE.AESNBR il | ) GO  TO  5 | • Q 

J IS  AN  AES 
JJJ*L 

aescmk* i .o 

00  SIRE  LL»I iNBRAES 

1 F I INDEX.  NE.FESNBRILU  ISO  To  sirs 

••J  AND  X are  BOTH  »ES  - _ _ 

pR|TEI7,R02IIn0EX,aBsa,PErCnt 
GO  TO  5R00 
CONTI NUE 

DEN0M«Fl0ATIT0TACTIJI*T0Tl*S(j|I 
pERCBIjju. | NOE  X I«FlOAT ( ABs* I/UENOm  *100.0 

oo  51R7  LL»l >NBRCBT  . 

IF) INDEX. NE.CBTNBR ill  I ISO  To  S|R7 

• • J*  AES  AND  *»CBT  ARM 

nRITeIT.RSOIInDeX.aBsA.perCnt.aBSA.pcrCBIjjj.InOeXI 

GO  TO  SROO 

CONTINUE 

•*J*AES  AND  * NE  CBT  OR  A£S 

0EN0MA»fL0*tIT0TACT<JI-T0TL*SIjI*T0TcCA(jII 
PEHCA ( JJJ , INDEX  I»FlOaT I ABS* I /OENONA  • 100. u 
•H|TElT|RSSIINDEX.ABSA,PERCNT.AbSA.PE»CB<JJJiINOt»).ABSA 

• pErca I jjj.  index  i 

GO  TO  SNOO 

CONTINUE  _ 

nR1TEI7,RC2IInD£X.aBsAiPERCnt 

CONTINUE 

lF(CBTCMX.E9.|.olpRlTE(7,RUl|ToT*CT(JI 
|F ( CBTCHX «E8» i .0  ISO  TO  SSOO 
nRITEI7.90JITuTaCTIJ)  i DENO‘*.OEnUMA 
CONTINUE 

••FILL  remainder  OF  ALLBES  anu  SrSM|N  arrays 


6*»» 

C 

SibO 


c 

c 

B?UO 

c 


c 

&7BO 

s*oo 

c 


5*00 

6000 

c 


6*1)0 


DO  S9U0  J J6  | t NBRSPC 

j«5PCnkr  I J J I 

DO  9*99  m.  | .NbHBES 

IF | JaEQaBESnBR I « 1 160  to  5SbC 

CONTINUE 

60  TO  5900 

TOt  i I | I.ToT  l I I * *RE<6  ' j' 

T 0 T 2 » t I «TOTJl  I I ♦*E8l Jl 
DO  S?bl)  CK"I  INBRAES 
K«AESNBR IKK  I 
MM»KK* l 

«LLaES(j,MHl,FLO*TtREK(Kll,(PtbCBU«1jl/|Oo.U) 

6tLBES|j,N*ES',U*»ULBt5IJ,l-»EiPDl*»LLbtSlJ.MMl 

TOtltMMl»TOTllHMl*»l(.bES<J<MMl 

T0T|(nBrAEs*IIRTOT|InBrAES*II*AI.LBES<JimmI 

••t£St  JF  J IS  A CBt  ABM 

DO  &700  16  I iNBBCBT 

IF  I J,EQ.  CBT'iBR  I N I I 60  to  S7S.J 

CONT  I AIDE 

• • J • C B t ARM 

BtSrt|N(j,MM|*FLOATI«E8|K|l*IFtRC»(KK1JI/|Ot,.OI 
BESmJM  j,NAE5pdI»BESm|m  j.naeSPI  > ‘BE  SHIM  J»mM) 
T0T2(MM)«T0T*lNMl*BESMIN|J|MMI 

T0t2INBR»ES*ll«t0T2lNBR4ES*ll»BESMp.  (JtMMi 

CONTINUE 

CONTI Nul 

••aRITE  PART  l OF  PROCUREMENT  REPORTa* 


kNT«I 

aR|TEIT,«iuIRnT 
kR I TE I 7 , 9 i | I 

mRITE|T,9i2|  IAESnbRIKIiKrI iNbraES) 

00  6000  L* 1 I NBRSPC 

jmSPCNBr I i I 

DO  SBOO  N«l (NBRBES 

|FI J.NEaBESnBRInI 160  TO  SBOO 

«RJTEI7,920l  Jt I *LL»ESI JlK I IK«I I NAtSPL I 

CONTINUE 


CONTINUE 

|END"NBRAES‘I 

mR|TEI7.9rsI  I TOTI • J I ( J«l |N»ESPUl 
•a«r|Te  part  2 of  procurement  report** 


K N T *2 

«R I TE I 7 .« I 0 I KNT 
mR|TEI7,9ijI 

m«ITe(7,9|2I  I AesnBr Ik  I «K" 1 iNBR*ESI 

00  7000  1*1  .NBRSPC 

JASPCNBW I L I 

DO  6 flUO  N«1  i NbNBES 

JF I J«NE .BESNBR I N I I 40  To  6800 

DO  6900  “■ I ,NBRCBT 

IF  I J«Nt i CbTnBR I m | | 60  TO  6*00 

I.RITE  17,9301  j*HESmJnIj»I  I i BE  SM  n I J , n*E  SPL  I 

60  TO  7000 

CO  NT INUE 

mR|T£|7,»J0)  J,IbESmInIJiK1.K«I»NAESPLI 


GO  TO  7qOO 


xii-hs 


r 


1 


*•00 

700Q 


C 


8’? 

too 

9O5 

♦ lo 


9 1 2 


915 

920 

tJo 

9“5 

95q 

955 


1 


2 

10 


2° 

C 

300 


310 

C 

HOC 


CONTINUE 

CONTINUE  __ 

NR  1 TE I 7 # 9ns  I 1 T 0T2 I J I 1 J"  l » N AESPt  * 

UR l TE I 4 • 9§9 I 
RE»DI5,9»|I  OPTION 

ifioption.e6»'tes' iCall  optrpt 
nR|TEI4.9*o» 

(TOP  _ 

SUBROUTINE  oRTRPT 
integer  or  N*niSPN8t 

FORMAT  I | H|  , _:•*»  . ’ 0 OSES  PROCURERS  «T  ' 1 
9'R  E p 0 R T*  I 
FORMAT I I 

FORMATI I HO . 37« I ' •••0  P T 1 0 N*il3.'  • •••! 

FCRmaTI IhO.'TTPE  OPTION  NUMBE*  COMM*  AES  NbR'./ImOi 
♦ ‘OPTION  1 - PRORATE  The  I DENT  I F t e l>  SPECIALTY  To  all  BES'i 
9/JNOt 'OPTIONS  2-t  ARE  UNDEFINED  AT  THIS  TIME') 

FORMAT  I IOSPEC I altt • » I Ox • *BES« • 5* 1 ••••••*  1 1 301  ■ 

.9  * PRORATED  ASS  RE9UIREMENTS' »29X  ,<♦••• ' iSX  t ' ToTALL/__  — _ 
♦,0NUMBtR'il3X.,RE8NT,il*l3xil3li2Xi'RE8MT,t 

FORMAT!  jH0,  * INVALID  AES  NbR  ENTERED  - I -P  PAS  • . ] 3 . • TRT  A (>  A 1 19  • ) 
FORMATI IM0.3X,I3.13X,F5*0.3x,|*IFR.0,AXIiF5.0I 
F08MATi|MO<3XiI3»13K|E5»o«98xiF5'OJ 
FORMAT !|H0,|0»,' TOT »L',2X|fT.0.2X,|4lF5.0, IX I1FT.0I 
FORMAT  ( 1 HO , • I F No  FURTHER  OPTIONS  oESIRso  - type  The  Fl'U_a»i!»ci  r 

•/  lHO»  Mot  1*  I 

format  1 1 wo. 'Enter  option  i>aes  number  if  any  other  aes  are1) 

♦•  TO  BE  PRORATED' 1 
MRITEIT.8991 

knt«o 

nBH"|  _ _ — _ 

wR I TE I 4 • 9 I 0 I 
MRITEIA.9S0) 

RE*0I5i900I0PTNBR.SPnBR 

IFUnUiQ.O  • AND*  OPTNBR.nE.NBkISO  TO  2 

knt»knt« 1 

|F(0PTNbR«NE'NBR)6O  to  ioou  _ - 

00  10  J«1 ,NBRAES 
ifispnbr.eu»*esnbri ji iso  to  20 
CONTINUE 

MRITEl7,9i5)5PNBR 
60  TO  | 

SO  TO  I 30O»RO0i500i500i500'5o('|5COt50O>5QOl  >OPTiIbR 

♦•OPTION  ONE** 

CONTINUE 

nbh»optnbr 

WR I TE I * 1 955  I 
DO  310  x«l 1 100 

DlFF»ALLBES|A|J*l  I - B E S M 1 N_|  K 1 J ♦ 1 I 

BESM|NlKtj*|l«ALLBESlKiJ*|l 

BESh INI k .NAESPL I "BESMlNl K (NAESPL I ♦ DIFF 

CONTINUE 

SO  TO  I 

••OPTION  T h 0* • 

CONTINUE  

nBR«OPTi,PR 
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SO  TO  | 

C ••OPTION  T(iHtt»» 

sOo  CONTINUE 

nBR»OPTnBR 
SO  TO  I 

C •••• | TE  0ES"In  »»»»»•• 

|0uu  ,R I Til  T , *0» I NBR 

«R1TCI>.*||I  l»CSNb*IM,K»l.NI»N*lSI 
DO  >000  L» I iNBHSPC 
j»iPCNBH  t L ) 
du  t*OQ  n» i .nurses 

1 F I j.NE.Pt SN#R I Nl  I GO  To  6030 

00  6 POO  R«l,NbHCBT 

|Fl J«nE.CBTnBRIn» » So  TO  6*00 

«.R|TEIT,»20l0»l“ESNlNlj.KliR*l.N*£SFi.1 

GO  To  >000 
6*U0  CONTINUE 

■R1TEIT.R20I  U.lBtSNlNlJ.FI.N»l*N»ESPLI 
SO  TO  >0C0 
6*00  CONTINUE 

tOoo  CONTINUE 

■ RITIO.PRbl  ITOTH  Jl  i J»|  ,N*tSPL' 

|F  t OPTNSR  • r,T»  » .OR.  OPTNBR  .CT.I*SO  to  ?ouu 
so  TO  1 

•000  RETURN 

end 


SUBROUTINE  record 


■ mtil)  ■<  < 


i mHTi  ••  iTinTHTnirnTminin 


5UBR0UT I NE I RECORD 

CALLED  BTl  DATABASE 

CILLfNC  **GONTNTSl  NONE 

called  routines:  sopens,srrel,ssort,ssret 

Input  nuts:  oos*pudo7.iOosip«ot  b. 

output  files:  odsapuooj* 


PUKPOSEITH|s  PNUORAH  CRfS’ES  The  input  RECORDS  to" 

THE  CUMULATIVE  DATABASE  BY  ADDIN4  The  CURSES 
RECORDS  to  rPPROFRt ATt- cuwStTT  RgCOROS.  »»«RC 
and  y-arc  records  for  the  same  year, grade, and 
SPECIALTY-  ARE  COHBTnEU?  JS“WEtt  75  TREQ  AND  CRES 
records  of  tme  same  year  specialty  and  sr»de 

DATE:  IS  APRIL  7* 

authors:  h«j  j , d • Thomas, maj  J,w.  olson.mr,  r.l.  brown 

CORHaNOI  «T,5.  ARNT  CONCEPTS  ANALYSIS  IGtNCY 

® I 2 0 WOODMONT  AVENUE 
BETHES0A,HATrYL*«6  20DTR 


60| 

607 


C 

nnr 


FORMATI A2, J*, |«. JJ12, |R,T», | I I 

FORHATI 1 OHeSSAGE TRON  S0FN00TTRT  RECORD*/ 

•«ocomputat ional  adjustment  hade  on  data  base  •/ 

••DResUIRENEnTs  RECORD  sZT,J*7-~ 

• 'OACTIVITT  w A S ••I*,*,  UPPER  LIMIT  WAS  ',16/ 

-a'uthis  adjustment  nlcessart  due  to  p»umutees  '/ 

••oreplacing  those  attriting  ouRing  the  interval'/ 

• •OACTtVITT  WAS  SET  EQUAL  To  UPPER  LTTTTTYT 

01HENSI0N  INI  a ) , I SUM! J I 
DIMENSION  a ttt .prrtbl  1 1 3 I 
INTEGER  A.ASAVE 

EUUIVALENCt  IAl2>.IN0L»>.lAI31,lN(|)l,IAT6t,  1 OAT  A I .UITUISEGI 
DATA  PARTBL/1  , I • 12,0,0' I • 

» 2,1,26,0,0. 2, YYRYY/ 

JINDCXwQ 

call  S0PEN3 1 1 1 00 , * 3 00  . T , 2 , PARTBL 1 

FILE  7 IS  THE  CURSES  DATE  BASE  FILE 

RTA6I7.60I ,InD*2»R.IRR»2VRI  A 

CHANGE  * ANO  T COL  RECORDS  TYPE/PREFJ*  FOR  SORTlNS 
IF) a I I I .NE. 'RN* .»ND. A I 1 1 .NE. 'CN'.ANO. ITU INF.TRY^ 

»,AN0.AI1I.NE,'RU'«AN0.AI|I.NE.'RT'IA(1Iw'2Z' 

change  w col  records  type/prefix  for  sorting 

IF  I A I I I ,EQ. 'Cw»  I A( I Iw'ww' 


2 7 T 
c 


CALL  srrelia.ti 
GO  TO  100 

REAOI  18,601  ,END«*00,ERR"200 I A w FILE  18  |S  THE  OLO  CUMULATIVE  DATA 

chance  x and  t col  Records  type/prefix  for  sorttnc 

IMa(1I.NI.'Rn'.*ND.A(|I.NE.'C*'.AnD.A(|I.NE.'RV' 

R2tNB.Trrr.NE  ,'RU*.  AN0.AH  I.NL.'RT'I»M)«'2Z' 

CHANGE  n col  RECORDS  TyPE/PREFIX  for  sorting 
i r t Atn  .cq.'Cr*  i*i  i 


XII-II8 


release-  re  co*ir  to  -sort  prorram 

C Act  SRREL I A * 7 1 
00  TO  ZSS 
CALL  S90RT 
MEwtNO  7 

RELEASE  SORt  RECORDS 

c»ll  TRurtrJrs.^tnn 

CHANGE  TYPE/RREFIX  BACl  to  ORIGINAL 

ifi  iur.tB.’WR' 1 *>rt  v rcwi 

If  I A<  I l*Ea*,ZZ*  > All)  • «CZ • 

IS  THIS  The  f IR5T  RECORD  - YES, SAVE  DATA 
|FIj|nde*  ,E8.  01  GO  To  3 

- ir  T ITOCT  VN*.  JINUtR)  GO  "nr~Z 

]F  YEAR .SPEC l ,SPEC2  AND  GRADE  rATCH-ADD  aCTIVITT.LB  *ND  UB 
ISUMt3T.l5U*<Z)*tSUHt IT 
ISUHI II  ■ |Nl | | ♦ 1SUMI | | 

ISUHIZ)  » I N I Z I » rsumzi 

SAVE  T-ARC  ACTIvITT  IN  LB  FIELD  OP  l RECORO 

1 F I » I I I . N£  , • Rn<  I GO  TO  MOO 
ISUMI2I.0 

TEST  If  COMBINED  ACTIVITY  GT  OL 
IFI  ISUHI  I I.LE.ISUMI3I  )G0  TO  301 
wR1TE(».A02>JINDEK,I5UMIII,|SUM<3I 

rsmrn  t frsipmi 

GO  TO  301 

I SUM  I 3 ) • INI3I  ♦ IS0HI3I 
GO  TO  3ul 

WRITE  CU"SEG  RECORD 

WRITE  I 3,901) *SAVE, J INDEX  , ISUM,jD*TA 


SAVE  FIRST  RECORD  FOR  COMPARISON  W/SECOND 
save  activity ,LL .UL  RESPECTIVELY 
ISUMI  II  « I N I I I 
I SUM  I 2 I ■ I N I 2 ) 

I F A T-4RC  RECORD, PUT  Y-ACTIVITY  IN  LL  FIELD 

ISUMI 31  • INI  31 

SAVE  RE  5 T Of  RECORD  0«TA 

jlNOEX  « INOEx 

ASAVE  • A I I I 

jDATA  • I 0 A T * 

50  TO  3D1  ~ 

WRITE  LAST  RECORD 

wRITE(3,T0Rl*SAvt , J INOEX , | SUM, JDATA 
ENDFILE  3 
ENOFILE  3 
RETURN 
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£ 

C 

c 


PROGRAM  I UPDATE 


Input  FTT.ISI  UDS*CUD0|, 
ODPOPUOOl a 


— 

C 

"C 

c 

T 

c 


ODPOPUOOl  • 

Tonyo^n  thu  PROgwAw-onrnrr  total  requirements 

»NO  / OR  RATES  FOR  GRADES  O.A  THRU  0-2. 


mm 


us  is  April  t* 

authors)  haj  J * o * Thomas, haj  J.w,  olson 
COHHaNOI  U,5.”tH1TT  CONCEPTS'- 

»i2o  wqodmqnt  avenue 
•ITHESOA,HARVl»ND  700 1 R 


DIMENSION  R ATE  I 7 i 3 1 I , I R*TE( 7,31  I . ITKEqI I I ,6, |00l .TEMP  If  I 

INTESER  TIAR.SRAOt (SPECiOUDVAL 

EQUIVALENCE  (RATC(l,l),lRATEIt,lll 

rs  roRMrrr  r 


IS  FORMAT  I IM0, 'CAPTAIN  REMAINING  rates  FOR  GRADE ' , I 2 , I X • • ARE  OUT  OF 

— l sequence-.. input  ignoredvi 

20  format  i ix, ‘Requirements  for  grade *,  12 ,2x , 'specialty* , i 3, 2x ,' at  ye 

IIR»  , I J-,  Y 75  HOT  EQUAL  TO'.Isy  ~IT  TS  EQUAL  TO'llt,'  , INPUT  tGHURE 
10* , /) 


1 , 2X , * AT  YEAR ' , | 3 I ' WAS'tlA,'  IT  IS  N0W',|6I 

RO  FUHHAT  I 11, 'GRAUE' , |J, |X, 'WAS  ENTERED  ERHONEOUSLT ’ I 

SO  FORMAT  IIX,'N£W'tlX,A4,lX, 'VALUES  ■ • l * I 2 X , F 4 . N I / I 

SO  FURHAT  HX.rWTB'UX,  A3.  IX,  'VALUES  ARC  * , 20  1 2X  j 12  I / I 

7 0 format  I I HO . 'GRADE  0- • , I I , I X , • CHANGES  I • | 

■ 0 FORMAT  I I I .Ail 

♦ 0 FORMAT  (IHO.'NO*  OF  AES  EXCEEDED  20  — --PROGRAM  TERMINATED'! 
T0»1  0 


NBRaES«0 


c READ  IN  whether  TO  update  REQUIREMENTS  and  / OR  RATES  • ••• 

c ••••  2»UP0ATE  rates  •••• 

C nil  miPUATE  REQU  I MERER  | s AND  RATES  «»»» 

c 

READ  ts  » 101  IPNTR 

GO  TO  • 100,200,1001 , IPNTR 

c ••••  update  total  requirements  •••• 

— c — 

100  read  I 1 0 1 ITREQ 

C RETir  IN  TtAR  ,7TR AOE  , SPEC Mt TT , OUJ  TALWt  , AND  NT*  VS UJT 

I 1 0 REAo  15,  IO.ENOpISO  I YEAR, GRADE, SPEC'OLDVAL.NEMVAL 

c rorr  check  row  urrcH  or  old  value  

c if  equal  update  Reg., if  not  egual  reject 

IF  | | nTTBrTEIR, grade .spec  I ,La»  OLDV*LI  go  10  I2U 

write  14,201  GRAOE,SPEC'YEAR,OLOVAL)>TREalYEAR|GRADE,SPEC) 

— rt-TO~tta 
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r»  n n r\  o 


r*o  itwcat TTi«;GTr«ptnPEC  i »ncw>«i. 

■HITE  16(301  GR*0t  ,5PEC I Tt AH . 0LDVAL ,NE WV AL 
BO  TO  I 10 
ito  rewind  |0 

c write  out  updated  requirements 

WHITE  1101  |TREB 

it  i i pntr  ,n.n  stop" one — 

c 

c Hii  UPDATE  RATES 

C 

200  READ  III)  Rate 

C R E A 0 IN  GHADE  and  RATE  TYPE  TO  BE  UNDATED 

— rnr  weao  isTWipmsHor  etude. rbttpe 

IE  (GRADE  .gT«  I .AND.  shade  .LE.  A)  GO  TO  220 
WRITE  I A l H 0 ) GRADE 
GO  TO  210 

220  IP  (RSTTPE  .EB.  * ATTM I • I HEAD  H.lO)  t R A Tt 1 OR ADE j J | , j» ) , 9 ) 

IE  IR8TTPL  .EB.  'ATTLO*l  HEAD  IS,  Id)  I RATE ( GRADE , J | , J. |0 , | 8 I 

tr  trdttpe  fro.  4P»wT<T-RtTrT*i'H)r trate i irade , ai  . jait.eti 

IE  (RBTTPt  .ES.  'OELOHI'I  READ  ISiIUI  RATE  I GRADE ,2B | 

IE  IR8TTPE  .EB.  'UFLOHI'I  READ  15.10)  RATE  I GRADE , 29  I 

IE  (RSTtPE  .ca.  'OElOLO'I  READ  I S • 1 0 I R A T E I GR AOE , 30 ) 

|E  (RiTTPE  .EB.  'UFLOLO*!  READ  TSllOl  RATE  I GRADE , J I 1 

IE  IRBTYPE  ,ne.  'CPTREH'I  GO  TO  2 R 0 

read  in  cptrem  values 
read  15.10)  TTEmPI  JHJwl  .*1 

EDIT  CHECK  for  SEuUENCE.OE  hi  to  LO  VALUES 
DO  230  JP|  ,8 
K ■ J*  | 

RBVAL*TEMPIj|»rATeIGRADE,LI 
IE  (TEMPIKI  .LE.  R8VALI  GO  TO  *30 
WHITE  16.15)  GRADE 
GO  TO  290 
230  CONTINUE 

save  CPTRLM  values 
DO  235  J*  T , 9 
K.J.20 

IE  IGRADE  .EG.  31  RATE ( I .K | wTEMpl Jl 
IE  (GRADE  .EB.  2)  RATE  I * . J I wTENR I J I 

*35  CONTINUE  

2 90  IF  (RBTTPt  .EB.  ' AE  5 * I READ  (5.10)  NBRAES 
IE  (NBRAES  . GT • *01  WRITE  ( » , »U I 
IF  INBHAES  ,GT.  2 u I STOP  AES 

IE  IRBTTPE  .EB.  *»ES*I  READ  IS.IOI  ( IRATEI I , J) . J»l .NRRAtS) 

IE  (RBTTPt  .EB<  'AES*  I 1 R A T E ( I i 30  I ■ NOR  A l s 

C 

C WRITEOUT  NE«  RATE  arrat  values 

WRITE  16(70)  GRADE 

IE  (RBTTPt  .EB.  'ATTH|>(  WRITE  I6.S0>  H 8 T T PE , I R A T t ( GR » DE i J I , U • 1 , 9 ) 

IE  (R8TTPE  .EB.  'ATTLO*  'WRITE  I 6 . 50 ) » 8 T T Pt , I R A T E I GR Aoe . J » I Jw | 0 , | 8 I 

IE  (RBTTPt  ,E8.  *PRMT.|  wH|Tt  I 6 , So  I H » T T PE . ( R A T t ( GR A OE , J I . Jw I 9 , 2 7 I 

IE  IRBTTPE  ,EQ.  40FL(7HT‘I  WRITf  T » .BUT  RTTTRri*T*Tt  I GRAUt-1 28 1 

IE  IRBTTPE  .Ea.  * UE  LOH | * ) wRIfE  16, SOI  R 8 T T PE  , R A T t ( GR A DE , 2 9 l 

If  IRBTTPE  .Ea.  * OELOLO  * I WRITE  16, SO)  RBTTPE .RATE ( GRAOt , 3y) 
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IF  IR8TYPE  .Eg.  ' CPTREM  * .AND.  ORAOE  .Eg.  3)  UNITE  (i.SOI  RSTTpr 

l MUTE  1 1 .JI , jiJi  ,7TT — - PIL- 

,r  l_MTYP£_.|g.  *CPTREM*  .AND.  GRADE  .Eg.  21  URITE  l». SOI  RSTYpe. 

i rRATETr.jr.j.i  ,tt  ’ — 

lr  IWBTrPE  .Eg,  'AES'!  URITE  14,801  R* TyPE , C I RATE ( l , j | , J- t , NBR AES ) 

60  TO  210  " 

2S0  RE  u I NO  II 

c write  oirr  opertEo- lUTt'Tnrnjrr — 

URITE  (III  RATE 

ttop  rrwiSH 

End 
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SUBROUT  i Nt  KTRtQI  I TREU  , JGRADE , nTRS , NUMBER ,NSPEC , nBRSPC , ISEgI 

C 

c 

_ c 
'£ 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

*■  t 

c 
c 
c 
c 
c 
c 

DIMENSION  NBRSPLlbUI 

£**•••  THIS  PROGRAM  "ILL  PRINT  OUT  THE  VALUE  OP  ITREO 

c * • • • • roR  jgrade  fRon  year  o to  nyears 

DIMENSION  I TREg I I I I * I I 00  I 

" ba fi  BEreRr.irrEir/  * before v/ttftfr  *t — 

?0|  FORMAT)!  SPECIALTY  * > 1 2 • • R E 8U  | RE  ME N T S • , | I I B I 

902  EORMATI |HD, lOS.’REBUIREMENTS  for  GRAOE  •••  * i A G t * ••• 

l deriving  unfilled  requirements*  i 
703  FORMA  T I 1 * ,9T5* I »T« , t | t 1 XI ) 

KGRADE  • JGRADE 

IF  r JGRADEa  nE,"STR5RIDER  JGRADE  * I 

c SUPPRESS  AFTER  DISPLAT  For  JGRAOE*l,IF  JGRADE  NE  6 

JFI JGRADE, NE»G  . AND ‘NUMBER <E0 . 2 • AMD . TBtS iNE a [I FBR «0t ■ JGR AOE 
DO  JO  I • JGRADE iKGRADE 
IF  (NUMBER  . E 0 , ll  HRITEIi,70ZI I iBEFORE 
IF  (NUMBER  • E Q a *1  »R I TE ( t , 902  I I a »F TER 

WRTTEI  4,907 rlL  aERO.B)~ — 

DO  10  Ik  ■ I a NSPEC 
K • NBRsPCI I* I 
DO  20  J • I i I I 

ZO  (TOTAL  ■ ITOTAL  ♦ ITRE9I J, | a* I 

C IF  NO  REQUIREMENTS  FOR  A SPECIALTY  IN  ALL  T E A R S , SPE  C I A L T T IS  |NVA|.10 

IF  I ITOTAL  iEVT'Or  AO  TO  |0 

rR  1 TE ( 4 , 90  I I K , ( I TREa ( J, 1 ,K I , J • 1,NTHSI 
ITOTAL  • 0 
1 0 CONTINUE 

jO  CONTINUE 

return 


• 

SUBROUTINE!  kTRES 

• 

• 

OTfLlcB  BTl  LINFfCr- 
CALLING  ARGUMENTS! 

l 

• 

ITREO-  REGUIRERERTS 

JGRADE.  CURRENT  gpade 

NTRS  - NUMBER  OF  TfARS  IN  MODEL 

NUMBER  - DUMMY 

• 

• 

• 

— H5PEL  - NUMBER  UF  SPECIALTIES 
NBRsPC  - SPECIALTY  NUMBERS 
I SEG  - CURRENT  SEGMENT  NUMBER 
PURPqSE  I This  SUBROUTINE  Prints  OUT  the  REQUIREMENTS 

values  for  jgrade  ano  jgraoeai  from  year  o to 
nyears  before  UPDATING  ano  after  UPDATING. 

V ~ 
• 

• 

• 

• 

• 

• ••• 

DATE!  I S APRTfTA 

AUTHORSI  M A J J a D ■ THOMAS,  MAj  JaMa  OLSON, MR,  R , L a BHOmN 
command)  U.S.  army  C0NCEPT5  ANALYSIS  AGENCY 
S 1 20  ROODMONT  AVENuL 
BETHESO*,HARYl*ND  200  I m 

« 

• 

• 

• 

* 

• 

T 
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r 


c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 


2* 

JO 

10 

50 


PROSNAMI  •LlNK»5t 
INPUT  FILESI  ODPOpuOOIt 
OOSOtUDl > 

0DINPU00I  . 

ODS»CUDOI • 

OUTPUT 

00 1 NpuDO I « 

ODS»CUOOl . 

1 I • TEMP  PILE 
CALLED  ROUTINES!  K TRE8 , MOD  I P 7 I 1 NT£RN At > 
purpose i tmjs  proshah  updates  input  caTa  file  anu 
MOOIFIES  The  total  requirements  files  INORoER  To 

RUN  THE  0"S  THRU  0*2  SHADE  SEGMENTS. 

DATE  1 |S  APRIL  7* 

AUTHQRSI  HAJ  J.O.  Thomas. hAJ  J.W.  OLSON.hR.  r,l<  b«o,;N 

cohh»nd:  u,s.  army  concepts  analysis  agency 
*120  WOOOMONT  avenue 
BETMESDA,MARYL*N0  2UUIR 


common  /modify/  ITRE8<ll.».IOO>.RATEl7,J|l,LNtLTR,NSPECLiULlMIT. 
IACTIvT.JSRAOe.nYRS.CORT.iSes.sFRRFyISOI.nShSpCISOI 

DATA  NbRSPC/1 1 » I E • 12. 1 H * | S • 2 | .25.26*27 .28.31  .JS.J6.37.RI  • H 2 » H 3 . H H » 
|RS.H*»R7»Re.RR,5l.52>5Ji5R«7l.72,73.7H.75*7*.77.B|i82.a3iA6i*7,e8. 
2*1.92*73. 75.97. 0*0. 0.0.0/ 

DOUBLE  PRECISION  SOLF 1 L I AO  I . S0LF X 1 A J I 

0|menS10N  ISLFL<  ***> • 1S*VEI 18) . |TEmP< 1261 . IRATEI7, J| | ,uPBnuI50I 

INTESER  SPELL  T ( 50 1 . _ _____  

DIMENSION  auThmxIA) 
data  I0.HCT/IH.779/ 

EQUIVALENCE  I 5 0 L F I L I 1 ) , ISLFLI  1 I . S OL  F * I 1 I I 
EQUIVALENCE  IRATEII.II.IRATEII.III 

•aAaaFORMAT  STATEMEnTSaaaaa 

format  I *1 12. • ,• • . |2I 

FORMAT  I 8 I FA • H ■ • < • I >F6 . H I 

FORMAT  ( AIF 10.0*  ' > ’ 1 . I*  1 

FORMAT  I I2.2A. 12* JA.2AH.2XiAH.il  I 

FORMAT  I | H | i ' NO  • OF  REtOROS  *•>151  __  

FORMAT  I I 


XI I -124 


*0 

F3RM»T 

(///I 

TO 

FORMAT 

(All 

BU 

format 

1 lOFt.QI 

BO 

FORMAT 

1 Al .A| , 12  1 

RS 

format 

1 Al , | 1 , I 2 > 

R* 

FORMAT  1 t 2 1 

]0u 

format 

1 ) OF  6 • 3 1 

|I0 

format 

1 1 X , 2213) 

I 2 U 

format 

1 UlRFB.SI 

c 

CALL  OPT  I (value  I 

c 

c Read  l«  pa»»h£teRs  from  old  Input  d»t»  fill 
c read  i’«  PROHIBITED  ALTERNATE  SpEcIaLt(ES 

c REao  In  ATThI .aTTlo.PRnT,  and  oveR/under  flo*  nates 

c 

READ  ISlJO)  NJPEC.NTMS.NaMEI .NAME2,mOdE»J&«AdC 
READ  ISlSUl  AUTHH< 

READ  ISiSU)  NPRO  • I SRECL’ I I I i (■ I ,NPRU I 
C SKIP  R RATE  CARL* 

1M  JC.RA3E.lt. M I So  TO  1 2 S 
READ  ISi*OI 
read  IS.SOI  I SEC. 

REAO  (S. *01  I upbNu ( K I .«• I . SO  I 
READ  ISiIOO)  I SARhAT ( K I IKP | .So  I 
1 25  read  I 1 2 I RATE 

c read  in  total  requirements 

read  I (01  1 T R ES 

C CALL  EATeRNAL  subroutine  To  print  oUt  (TRtw  BEFORE  lpoaTIns 
CALL  kTREO  I 1 T«e9  I JSRaDE  ,NTRS«  I , 1 ,nSPEC  .NBRSPC  . (SE.,  I 
C READ  In  a SOLUTION  RECORo  to  UPDATE  ITREJ 

C FIRST  T*o  RECORDS  ARE  nOT  USED 

read  UOl  S0LF1L 

REAO  Il'JI  30LFIL 

130  READ  ItO.ENDPJRUl  SOLFIL 
C CHECK  FOR  CHANCE  IN  RO»'cOLUmn  RECORD 

IF  UCf.NE.RRRI  So  TO  |Rq 

C INITIALIZE  POINTERS  and  COUNTERS  Fo*  RO*/COL‘JMN  Records 

KCT«0 
I CTa2 
1 F OR  2*  R 
1F0RJ*S 
IFORRPA 

|R0  ICTAJCT*! 

ICOUNTPICT 

C CHECK  FOR  Last  ROW  OR  COLUMN  RECORD 

IF  I ISLFLISI . G E * 0 I SO  TO  380 
C CHECK  FOR  TVP£  Z RECORD 

I So  IF  I ICT.ES.IF0R2I  SO  TO  210 
c CHECK  for  T rP£  3 RECORD 

IF  I ICT.ES. | F OR  3 I SO  To  2^0 
c check  for  type  r record 

IF  I JCT .E9. IFORM I SO  TO  330 
C ••••  T T P£  | RECCRU  PR0CE5SINS 

last-R 

1*0  CuntinuE 

c 
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C SAVE  LAST  18  WORDS  TOR  Type  2 RECORD  PROCESSING 

C 

DO  170  J»l.ie 
*■ j* l 02 

ISAve1 J>*lSLPLtA' 

1 7 o CONTINUE 

c evaluate  data  in  Last  records 
i»o  if  iilast.ne«oi  last-il»st 
ILAsf *0 
IBSN-7 
K|w|bSN*6 
K2»k1»1 

DO  200  J»l il*ST 

NK»(K2*2I/2 

U«nk*a 

c SET  ROw/COLUMN  name  FROM  SOLUTION  FILE 

1 ROW* I SLFL I K 1 ) 

C SET  UPPER  LIMIT  From  SOLUTION  Fjle 

ULImiT«SOLF*( [A  I 

C SET  ACTIVITY  FRO*  SOLUTION  FILE  

ACT|vT«SOLFx<NK> 

C CHECK  FOR  ’kN*  RECORDS 

decode  ir,»q,iro*i  ln ,lTr ,nspecl 

IF  ILNtEQ^'X'.AND.LTR.ES.'N' I SO  To  170 
DECODE  It. *5. IRON)  LN , L TR i NSPE C L 

ironx*islfl(ki»i  i 

DECODE  I I ■ 7o • IRON* I CORT 

IFIJSRAdE.ES.2  •AND«LN»ES.'*,**kiD.LTR.es«01 
• DECODE  I 2,78.  [ROV.XINSPECL 

C CALL  SUBROUTINE  To  modify  TOT»L  reouirenents 

1*0  CALL  MODIFY 

CORTr'N' 

K1»K1*2R 
K2*K2*2*i 
200  CONTINUE 

IF  IKNTI06.es. 21  SO  To  HO 
SO  TO  llo 

C ••••  TYPE  2 RECORD  PROCESSINS 

2 1 0 DO  220  Us 1 i 6 

ITEMPl  JI«ISLFLl J* 

22o  CONTINUE 

c 

DO  210  J«7,2R 
Kaj.6 

I TEMP  I J >■ ISAVE I X 1 
2 Iff  CONTINUE 

C 

DO  2M0  J»7 i | 08 
K»J»i8 

ITEMPlA I»ISlFLI J> 

2io  Continue 

c 

c save  l»st  j2  words  for  type  j Record  processing 
c 

DO  2S0  J" 1 . | 2 
K»J.|0« 

I S A wE I J I • | SLf  L I * 1 
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2*0  CONTINUE 

c 

DO  260  J*l.|2* 

ISLFLl J »• I Ten* I J I 

2*0  CONTINUE 

|FOR2*IFOR2»* 

LASTpS 
SO  TO  ISC 

c ••••  T T P£  3 SECOND  PROCESSING 

2>0  00  200  J"l,6 

ITEMPl JI»ISlFLI J> 

2*0  CONTINUE 
C 

DO  2T0  J«;.l0 
A*  J-6 

I TEMP  I J I • l SAVE I A * 

2*0  CONTINUE 

c 

DO  300  J* l*i  126 
A*J-|2 

I TEMP  I J I ■ ISlFL ( K I 

joo  continue 

c SAVE  LAST  6 NOND*  F0«  T*pe  a RECORD  PROCESSING 

c 

DO  310  J*J it 
A*J*|  1 A 

I SAVE  I J I • ISlFU  It  I 
3 1 0 CONTINUE 

c 

00  320  U* I * |26 
ISLFL I J I • ITEMPI jl 

j2o  CONTINUE 

IF0R3* 1F0R3*A 
LAST*S 
SO  TO  ISO 

C ••••  T T P£  A H£cO®y  PROCESSING 

3 3u  DO  3 A 0 J*li6 

1 TEMP  I J) • I SLFL I J 1 
3*0  continue 

c 

DO  3S0  J«7  , l 2 

A*  J-6 

1 TEMP  I J I • ISA VE I A I 

jSo  continue 

c 

DO  340  J*13. 126 
A*  J-6 

I temp  I J I • I SlEU  a I 

3*0  continue 

c 

DO  370  J* I i | 26 
ISLFLl JIpITemPI jl 
3 7u  CONTINUE 

1F0AA*IF0R**A 
L A S T ■ 5 

SO  Tfl  100 
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c 

3*0 


H 


j’o 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


3*5 

too 


••••  LAST  »0*  OH  COLUMN  ADJUSTMENT  TO  INDEX-LAST 
ILAST,IEL0ATtISLFl-,*,*"J*0l/l2*0**S  _ 

IF  I lCT.EQ.  |F0R2*  IL«ST*|LAST*1 
WR  ITE*  * . 1 I ) I LAST . ICOUNT 

formaTI'o  last  word  is*.i5,*  in  recuRd  nb**'i|Bi 
XNT1Q**XNT10*4I 

kCT«»*» 

LF  ( FN  T IqA  t CQ  { so  TO  ISO  _ . . _ 

IF  I ICT.tt.  1F0R2  I SO  TO  210 
IF  l ICT.ta*  IFORjl  SO  TO  2*0 
IF  I ICT.ta# IFORt 1 SO  TO  330 
SO  TO  ISO 

WRITE  IS.toi  ICOUnT 

save  UPDATED  ToT*L  REQUIREMENTS  matrix 

rewind  10 

write  Uoi  itreq 

call  external  subroutine  to  print  out  itreq  after  uptiatin® 
CALL  *Tre«  I I TReQ I JSR AUt  .NYRS.I , 2 iNSPEC (NBRSPC, ISES I 
UPDATE  input  DAT*  FILE 

SAVE  ORIGINAL  ISES  VALUE 
I SESXw I 9ES 
write  PARAMETERS 
IF  (ISES. NE.  II  JSRAOEwUSRAOE- 1 

•••00  NOT  write  TO  File  II  IF  gR*DE  • 1 ••• 

IF  * JSRAOE.EU* I I SO  TO  H 35 

write  *1|.3o»  nSPeC.NTRS , name  1 .NAMEZ *MOOE • jsr*ue 
WRITE  * 1 I 1 2S  I aUThmx 

write  prohibitec  alternate  specialties 

WRITE  <11.151  npRO. 1 SPEClT ( I I . !• I .nPRO I 

write  MI6M  attrition  rates 

WRITE  *11(20)  (RMS!  JSRAOE.IU  , k ■ 1 ,9) 

WRITE  LOW  ATTRITION  RATES  _ _ 

WRITE  * I I 1 2u ) I HATEI JGRAUE.K i ,X»|0, l « I 

write  promotion  Rates 

WRITE  *11.20)  (RXTEI JSR*OE,F I ,N»1»,2T I 

WRITE  OVER  and  under  FLO*  VARIABLES 

WRITE  *11.20)  tRXTEI JSH»DE.Xl .A»2».3l I 

IF  I JSRADE.lT.m I SO  TO  *20 

IF  ( 1SES.NE. II  SO  TO  W UO 

I SEG*  t SCG* l 

write  *11. Sol  ISEg 

WRITE  *11. BUI  IuPbndIXI .K«l , SO  > 

00  3SS  K*l ,50 
SARRAV I X I •! .0 
CONTINUE 

WRITE  Ill.ICjOl  ( SARRAV  I « | ,*w|  ,So  | 

IREAD**  JSRADE-H I 
IF  I 1 SE  S X .nE.  1 1 (READ*  IrEAO  *1 
1 F ( [READ  .LT.I  I E N 0 FILE  II 
IF* IREAD  • L T . 1 ISTOP 
00  M10  *■!  . IREAD 
READ  IS, SOI  ISEG 
WRITE  III  .SO  I ISEg 
READ  IS, SOI  IupBNDIjI ,J*1 ,50* 

WRITE  *11.81)1  I UPBNDI  Jl  . j*  | ,50  I 
READ  *S,|00)  | SAR" AT  * J I , j*i ,50  I 

WRITE  *11.1001  ISARRAYlJI.Jwl.Sul 
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•4  I U 

c 

M20 

c 

c 


c 

c 

•(Jo 

c 

mJS 

c 

c 

c 

c 


c 

c 

c 

c 

rmo 


RSu 

rS8 
• SR 
c 
c 


MS» 


CONTINUE 

checr  for  chide  J 

IF  I JGRADE.GT.JI  stop 
IP  ( jGRADE .ED. 2 I CO  TO  Mjq 
HP  I TE  OUT  CAPTAIN  PARAMETERS 
HP  I TE  OUT  2 u AES* ICM6.NBR4ES 

WHITE  'llillal  t |P»TEU  '<•  >K*I  • 2 0 > i |P»TEI  I tJ|  I l IR»TEI  I >00' 
WRITE  OUT  CAPTAINS  REMAINING  flT  TtAP 
WRITE  < I 1 • 1 20  I |P*TE I l |K I |K»2| .29  I 
STOP 

WRITE  OUT  LIEUTENANTS  PARAMETERS 
WRITE  OUT  2c  AESi I CMC  , nBraeS 

WRITE  llllllnl  llRATEIl*Rl|PW|i2pl||HATEITil0llIi-«TLII.JUI 

write  out  captains  remaining  by  yEa» 

WRITE  < 1 1 > 1 20  I (PATE  I 7 .*  I iK-l  ,») 

END  FILE  I ) 

STOP 


INTERNAL  SuuROuTiNE  MODIFY 

this  subroutine  updates  t»e  total  requirements  file 

SUBROUTINE  mOOIFT 

common  /MODIFY/  ITREOI  I I » A , lUDl  .RATE  1 T » J I I (LN»LTh  , < SfE  CL  > JL  I *■  1 T , 
I ACT  | vYi U8RA0E intRSiCoRT  * ISEOi S*RR»T I Sot iNbRSPtl so  I 


•••••format  STATEMENTS***** 

format  i'oltr  «tr  spell  ucraoe  i'.de*  reoone  reuth,  re, tot 
I'  ToTRE'J  R A T E x rMEy  S«RH»r  ULIm  Cr^aC  T • ■ / l I H 1 1 1 , , } I • > 
22«iJFT*|iF*,|,FR»IaJX|FR«Ii2X,FS,i,2F7,i) 

FORmaT  I*  |T«£C  * * • I **  * ' X I • * , F R • 2 , 1 ACT**  i F8 • 2 » * a A TE*  ’ < F o . ? « 
I'  ULINIT  ■ • i F l 0 • 2 I • CoRt  • <,A|I 
FORMAT  I*  ITREO  * • 1 1 R i * *C  T ■ » , F r , ^ * 

F0RHaT|  Imiji  « INVALID  SPECIALTY  ENCOUNTERED  IN  mOdIFv  m 

BYPaSS  CREO  RECORD  for  ISEG  EOUaL  o or  2 
1FICURT»Ej,  'c'  • and*  ISECINE,  I)  RETURN 
J«  I 

••Set  year  for  TRES  And  CREq  RECORDS 
IF  | L N • E a t • N • I kTRmLYR*| 

• •set  tear  for  xn--var  i able  oat» 

IF  I ln< EO* ' X 1 . anO, L YR . nE . U I htR«nthS*I 
••SET  year  FOR  x 000»-  variable  DaTaILY  SEUf'EiT  Only) 
|FlLN.tw.»x*«»NL»LYR,EB.O|FYR«| 

IF  I LN«E8* ' X ' I J*2 
INDEX • JCR  *De 

IF  | JCR AOE ,LT  , 6 ) INDEX«JiRAOE* I 
REQONtwITHE.lUYR*  Index,  NSPECL) 

••VALIDATE  SPECIALTY  NdRBER 
DO  MSB  x« l ISO 

I F I NSPECL • NE  • NbPSPC I A I * GOToMSS 
IN"* 

GO  TO  MSA 
COST | ,UE 
«R|Tl  IA.rSRI 
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Return  o 

ili  uLIn.UUmIT 

_ IF|  jSR»DE.STOUJUH»ULlMlT/5*RR*YnNI 

~ "dJTinj.HnTnJt i M=uE80Nr»ri  • *iut£ 1 1 nock , jirrn /i i.*w»ttU5B»6E;iTrr" 
1.0*1 

ErqTDT.iWEaoTiTvwt'BTWoust  firm  nrr 

C SARRAT I I I «Q  FQR  LINK  TO  LT  SEGMENT 

IP(  jGRadE.lT.4)  REgtoTGReGONE  ♦ rEiTTrO 
TqTrEQ»nEqToT-aCT|»t 


RaTeT»raTEI jGRaQE.ABI 

~C  niF  OPT  I OVTTN  "JUT  CARETTNEn'  PR  1 NT  KTT 
if i ivalue.gt.oj 

■ ~nrRTfT— r r.^'rirY*7EYirrN5»rt  c l , j sirm  n n o e * ■,  »rco  ne  nfisT^  TiEsnrtT 

1 TjjTREC  , R A T E X . R A T E Y . S A R R A Y ( INI  .ULlN.CRQACT 

c ••Test  for  segment  o or  ~0r  ~cotwnrecord 

If  1. 15EG.NE.1  ) GO  TO  (460.480)  • J 

~c immim — 

c ‘.segment  one  test  for  rom  or  Column  record 

5o  TO  ( SOQ I h Bo  I t J ’ ~ — 


c 

r 

c 

■’ncr 

c 

c 


*••  ""N---TREG  CONSTRAINT  DATA  FOUND 


• XI  [S  ATTRITION  FOR  LONER  GRADE  IF  |PNTR»KTR*9, 

^THElT»IsC_FORinGHER  GRADE*  ~~ — 

X IMCT  I vTaRaTE  ( JGraOE  , IPNTR  I 

IF  (ACTIVT.1T.uLlMrn  GO  TO  <170  ■ — 

1tRE«<Ky«iJGRA0EiNSPECLI*MAx((X|».5Ii!.I 

IT  ITT H TEJi  p TTRES  ( K 7TF.-3 SV ADE I NTPECLT* ff  ‘ 

Gc  TO  4 90 

R70  ITRE8I«yRiJ&RaDEiNSPECII*m»X(|.,IUL|H*aCTIvT‘X||/II.0*RATEX|| 




r 

c 

c 

4 8 0 


I F I KTR  ,EQ_.  I I I TREg  I K TR  , J G rape.  NSP  ECU  • ( UUH«ACTIVT)/(I,Q.RaTEXI 
Go  TO  490 


•••  XN**  •••  F OUNo 

^rii'ALSO'  xOod^*  TN  l'VSEGMENT*.* 


ITREa<K  r»l JG*A0E  .NSPECL  I "MAX ( l.,IULlM-ACTlVVI/|l,0»RATEXtl*.S 

i,-H  | r F I i",  R 5 B I MRE  ffi  . y R 7j  gh  A 0 E , rJS  P EClTYTIETTvy 

4?o  Continue 

c ‘*»Tf~ Option  o"N  xOT  card.ThEn  print  key  variables 

If  ii  value .lT.  i i return 

rFlcOTTT.Ea.'T'  r ~ 

• ■RITE  (6.45QI  I TREG I XTR , JGRAOE  iNSPECL  I . X I , ACT  I VT I 


I f i cort  .eg • 'c • i 
• WRITE  16.450  I ~i  IRES  [XYR  i TNOEX  , NSPECL  I .Tl~,*CTm  , 
IRaTE I I nOEx , IPNTR I , ULImIT  ,CORT 

re  t l rn — 


c 

C “ 
_500 
c 


TAICRErOff  THEo  tn  phase  |A«T- 

IpNTR"KYH*9 


•*!  is  attrition  for  loner  grade  if  ipntr»ktr*9," 

X|.ACT1yY.R6TE(JGRADE, IPNTR] 

If  I COR T • EG . *t ' I X I «Ai T I VT»R ATE ( | NDt X *ktR I 
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IF  UCTlVT.LT.ULlMIT!  60  To  510 
C *CT|vIT*«ULI«1T 

ir(co»r.ti),«c*i  crsact»actiyy 

IF  lcOHt.ta.»c*  » ITReUIKTR, INOEX.NSPECL |»maa | II TRtu U YH . I .OEK » 
INSPeCLI“UL|m|T»KI  I I 1 • I 
Ifi  i«r»  .r,T,  | I • and  , 

A ( CORW8.  t T*  ) ) ITREB|KYR  . JSNAOt  .NSPCCUaMA*  | | |T«t  . |KyR  , JSH»iiE  , 
iNSPttt I *UL In  1 T»«  I > t 1 • • 

IF  |KYN.C(|a||  |THttt(KrK»JliRADti'<Sf’tCLI« 

• HA»(!UT»EalKFN,J6*»DE|NS«CLI-JUM|TI*.t,l,UI 
SO  TO  N*0 

c 

C ACTIVITY  IS  LESS  Than  UPPER  LIMT  for  Phase  one 

SlO  IF  I CORT.N6, »C* t so  TO  *20 
C CREO  record 

CHoacTaAcTI vY 

lTREttUTR.|NOE«*NSFECU»HA«IREaONt-ACTlVY»>l*»Sll.| 

SO  TO  N’U 

c aaCTIYITy  .lT*  UPPER  LlMIT-TREU  record  - phase  I* 

S2o  lF<JSRADE«E(|**IRE8TR0AR£tt0NE 

ITREo1Rth*JOR»DE.NSPECL1phA«|(reyTpO*CrqACT-ACT|vyyiIIi1.i 
IFIKTR.es, illTHEa(KYR,JGRAOE,NSPEcLlPRAXIIReHT"O.C’<r.  ACr 

• “ACT  I VY I ,0. I 
SO  TO  RRO 

ENO 


I 
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"T" 


INPUT  FIL^SI 


OUTPUT  FltESI 


* I • • THS  $ A P U D T 8 « 


"T5  • ITtMPT  CQPtEO  TO  UDS APuUJX*  9~ 

-|7-  itehPireconos  NOT  NEEDED  In  OOSAPUOlS.  • 


I ML  L U"“ t N T 

data  base  into  two  components* 


tUnum  I | VI 


TT  IS??1  T0  BE  UPD*Tr^nf  FURTHER  TT5WTNT5 

_•  that  output  reaqt  to  go  into  the  miraos 

~ om  base  N/o  cm 

DATEI  15  APRIL  7* 


INTEGER  a 



»00  FORMAT)  1 l > 

T fftAOl  H.TDI  .tNPRTTTU 

IE  I Al 2 I ,EQ. •* 7100* IPRINT  903, A 

»WT  rORHAI  | H.A2IA5,  | I , IA.JI  |Z,  1R| 

»0|  rORHAT(A2,AblII,I«,3lI2,|H) 

90t  ronn»TU7,iortt  r,o*iSOTTr3+T-  

|EIA(3I,LE,NSRA0E»I  I IGO  TO  2 

WHITEI I7,»02»»  

60  TO  | 
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GLOSSARY 

1.  Abbreviations, 

Acronyms , and  Short  Terms 

ADP 

automatic  data  processing 

AES 

advanced  entry  specialty 

AFCS 

active  federal  commissioned  service 

BES 

basic  entry  specialty 

CAA 

Concepts  Analysis  Agency 

COL 

colonel 

CONUS 

Continental  United  States 

CPT 

captain 

CRT 

cathode  ray  tube  (display  terminal) 

DA 

Department  of  the  Army 

DCSPER 

Deputy  Chief  of  Staff  for  Personnel 

DOPMS 

Defense  Officer  Personnel  Management 
System 

EEA 

essential  elements  of  analysis 

FMPS 

Functional  Mathematical  Programing 
Sys  tern 

HUMINT 

the  intelligence  collection  function 
that  uses  human  beings  as  both 
sources  and  collectors 

HQ 

headquarters 

LP 

linear  programing 

LT 

lieutenant 
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LTC 


lieutenant  colonel 


r 


MAJ 

MILPERCEN 

MTOE 

NASA 

ODCSOPS 

ODCSPER 

OPD 

OPMD 

OPMS 

ORSA 

PERSACS 

pet  auth 

RCS 

SACS 

SACSTAPE 1(2) 

SAG 

TDA 

TOE 

UIC 


ma*jor 

United  States  Army  Military  Personnel 
Center 

Modification  Table  of  Organization  and 
Equipment 

National  Aeronautics  and  Space  Admin- 
istration 

Office,  Deputy  Chief  of  Staff  for 
Operations  and  Plans 

Office,  Deputy  Chief  of  Staff  for 
Personnel 

Officer  Personnel  Directorate 

Officer  Personnel  Management  Direc- 
torate 

Officer  Personnel  Management  System 

Operations  Research/Systems  Analysis 

Personnel  Structure  and  Composition 
System 

percentage  authorized 

Reports  Control  Symbol 

structure  and  composition  system 

magnetic  tape(s)  containing  SACS 
data 

Study  Advisory  Group 
tables  of  distribution  and  allowances 
table(s)  of  organization  and  equipment 
Unit  Identification  Code 
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USAMSSA 

YOS 

1LT 

2LT 

Computer  Models, 
befinitions- 

AID-0 

BCD 
BP  I 
CIM-O 

DATA  processor 
EBCDIC 

ED  processor 

ELT  processor 

EXEC  8 
FIELDATA 

FORTRAN 


US  Army  Management  Systems  Support 
Agency 

year(s)  of  service 
fl rst  lieutenant 
second  lieutenant 

Routines,  Simulations,  Related  Terms,  and 


Automated  Interaction  Detector-Officers . 

A model  providing  data  on  attrition 
rates  and  populations  by  grade  and  years 
of  service. 

Binary  Coded  Decimal  Notation 
Bits  per  i_nch 

£entral  Integrating  Model -Off ice rs . A 
model  that  provides  data  on  attrition 
rates  and  populations  by  grade  and  years 
of  service. 

Data  processor  of  EXEC  8 operating 
system 

Extended  Binary  Coded  Decimal  Inter- 
change £o3e 

Edit  processor  of  EXEC  8 operating 
sys  tern 

EJement^  processor  of  EXEC  8 operating 
system 

UNIVAC  1108  operating  system 

A 6-bit  character  code  that  is  the 
native  character  of  the  UNIVAC  1100- 
series  computer  system 

Formula  Translation  (a  computer  coding  f. 
language  used  in  scientific  appllca-  ' 
tions) 
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MI  RADS 

Marshall  Information  Retrieval  and 
Ci splay  System 

MPS-X 

Mathematical  Programing  System-Extended 

ODSAS 

Officer  Dual  Specialty  Allocation 
5ys  tern 

SPRINT 

Specialized  routine  within  FMPS  that 
accelerates  solution  time 

Terms  Unique  to  ODSAS 

a.  General 

BGNYOS 

beginning  year  of  service 

CINC 

unique  suffix  qualifier  for  name  of 
one  type  of  flow  control  for  Y arcs 

CREQ 

unique  suffix  qualifier  for  name  of 
capacity  constraint  on  Y arc  input 
to  a node 

ENDYOS 

ending  year  of  service 

GOZO 

unique  suffix  qualifier  for  name  of 
flow  conservation  constraint 

LINC 

unique  suffix  qualifier  for  name  of 
one  type  of  flow  control  for  X arcs 

NPREF 

total  number  of  preferred,  or  logical, 
specialty  pairings  considered  In 
arriving  at  a solution 

NSPEC 

total  number  of  authorized  OPMS 
specialties 

NYRS 

number  of  years  In  projection  period 

OBJECTIV 

objective  function  name 

PROM 

promotion 

Spec 

specialty 

SPEC-PAIRS 

a standard  MIRADS  query  set  used  to 
display  specialty  pairings 
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TOTAUTH  unique  name  for  one  type  of  control  of 

Input  constraint,  indicating  total 
number  of  officers  authorized  for  a 
grade  segment  at  start  date 

TREQ  unique  suffix  qualifier  for  name  of 

capacity  constraint  (X+Y  input) 

UBSG  unique  suffix  qualifier  for  name  of 

control  of  Input  constraint  for 
specialties 

b.  QDSAS  Catalogued  Runstreams.  - See  Chapter  IX. 

c.  QDSAS  Disc  and  Tape  File  Descriptions.  - See  Chapter  VIII. 

d.  QDSAS  Programs  (Major  Routines  and  Subroutines) . - See 

Chapters  )<I  and  XII. 

e.  QDSAS  Programs  (Minor  Supporting  Functions  and  Subroutines) . 

See  Table  Ill-l,  Chapter  III,  and  Chapter  XI T. 

f.  QDSAS  Variable  Names.  - See  Chapter  X. 

4.  MIRADS-Created  Data  Base  Records.  - See  Chapter  VII. 
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OFFICER  DUAL  SPECIALTY  ALLOCATION  SYSTEM 
(ODSAS) 

APPENDIX  D 

ODSAS  NAMING  CONVENTIONS 


1.  General . - Three  naming  conventions  for  the  LP  variables  and 

constraints  are  utilized  in  ODSAS  to  facilitate  interpretation  and 
analysis.  One  convention  provides  for  unique  identification  of 
variables  with  the  arcs  with  which  they  are  associated.  The  second 
convention  assigns  unique  names  to  the  rows  of  the  LP  matrix  output 
by  the  FMPS  activity  during  the  processing  phase  of  the  ODSAS  auto- 
mated Information  system.  The  third  convention  is  a modified  version 
of  the  first,  and  is  used  only  in  connection  with  the  columns  portion 
of  the  FMPS  output.  These  three  conventions  are  described  respec- 
tively in  Paragraphs  2,  3 and  4,  below. 


2.  Naming  Convention  for  Variables.  - This  convention  was  devised 
so  that  tne  variables  in  the  constraints  used  in  each  grade  segment 
could  be  uniquely  identified  with  network  arcs  and  have  an  intrinsic 
meaning.  The  naming  convention  for  the  variables  consists  of  four 
fields,  one  alphabetic  followed  by  three  numeric  subscripts,  l.e., 
the  general  form  is  A . Each  term  is  explained  as  follows: 


A 

L 

f 

SL 

Alphabetic 

Year  coming 

Specialty 

Special ty 

identi fier 

from 

number 

number 

coming  from 

going  to 

Where , 

A = W - identifier  for  arcs  in  the  T'  to  T interval  only 

0 0 

X - identifier  for  officers  remaining  in  grade 
Y - identifier  for  officers  promoted  to  higher  grade 

y = 0 - 9 
f = 01  - 99* 
g = 01  - 99* 


♦Includes  only  the  45  currently  authorized  OPMS  specialty  numbers. 
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For  example,  an  arc  connecting  the  Specialty  25  node  at  T0,  and  the 
Specialty  36  node  at  T,,  for  a LTC  in  the  LTC  segment,  would  be 
X02536 » T°r  a LTC  promoted  to  COL  In  the  same  segment  and  year,  and 
tne  same  "from"  and  "to"  nodes  as  the  previous  example,  the  arc 
would  be  Y02536. 

3.  Naming  Convention  for  FMPS  Solution  Output  - Rows  Section.  - 
Rows  are  assigned  unique  names  relating  to  constraint  types  (the 
five  types  of  constraints  are:  (1)  flow  conservation,  (2)  node 

capacities,  (3)  control  of  flows  for  dual  specialties,  (4)  control 
of  input  to  the  network,  and  (5)  key  arc  relationships).  Row  names 
appear  in  one  of  the  following  five  formats. 

a.  Format  1.  - This  format  consists  of  one  alphabetic  charac- 

ter for  an  Identifier  (N  or  W),  one  number  for  year,  two  numbers 
Identifying  specialty,  and  a four-character  alphabetic  name.  For 
example,  N011TREQ  Is  a constraint  for  year  T»,  Specialty  11,  for 
the  Total  REQuirements  capacity.  There  are  Six  possible  f^ur-char- 
acter  names:  (1)  GOZO,  Indicating  flow  conservation,  (2)  CINC, 

Indicating  flow  control  for  Y arcs  where  "from"  and  "to"  specialty 
numbers  are  Identical,  (3)  LINC,  indicating  for  X arcs  the  same  as 
CINC  indicates  for  Y arcs,  (4)  UBSG,  indicating  control  of  input 
for  selected  specialties,  (5)  CREQ,  and  (6)  TREQ.  (Both  (5)  and  (6) 
are  node  capacity  constraints.)  Examples  are  shown  In  Figure  V-12. 

b.  Format  2.  - This  format  Is  one  alphabetic  character  "R" 

and  a five-character  numeric  identifier  of  an  X arc.  For  example, 
R01121  Is  a flow  control  constraint  upon  arc  The  R-named 

rows  restrict  the  flow  In  X arcs.  Examples  are  contained  In  Table 
D-l. 


c.  Format  3.  - This  format  consists  of  three  alphabetic 

characters  "RES"  and  a five-character  numeric  identifier  of  a Y arc. 
For  example,  RES01121  is  a flow  control  constraint  upon  arc  Y^ipi. 
The  RES-named  rows  restrict  the  flow  In  Y arcs.  p 

d.  Format  4.  - Two  alphabetic  characters,  "UR,"  and  a 

four-character  numeric  Identifier  of  a predefined  specialty  pair; 

e.g.,  UR1121  is  a key  arc  relationship  constraint,  constructed 
using  the  utilization  ratio  for  Specialties  11  and  21,  which 
relates  the  number  of  officers  with  11/21  specialty  pair  serving 
in  Specialty  11  to  the  number  serving  in  Specialty  21.  (Examples 
are  contained  In  Figure  V-12.) 
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e.  Format  5.  - This  format  consists  of  one  row  name  "TOTAUTH," 

which  Identifies  uniquely  the  control  of  Input  constraint  for  the 
total  number  of  officers  authorized  at  T«  In  the  grade  segment  being 
processed.  (Other  control  of  input  constraints  are  named  according 
to  Format  1,  with  year  equaling  0,  the  appropriate  specialty  number, 
and  a four  character  name  "UBSG"  (meaning  an  upper  limit  in  segment 
1.)) 

A tabular  recapitulation  of  these  five  row-naming  convention  formats 
is  presented  In  Table  D-l. 

4.  Special  Case  Naming  Convention  for  FMPS  Solution  Output  - 
Columns  Section.  1 Within  the  Columns  Section  of  the  FMPS  solution 
output,  the  naming  convention  described  In  Paragraph  2 above  applies 
in  most  Instances  when  Identifying  variables  with  their  related 
arcs.  However,  there  is  one  unique  condition  for  which  a modified 
convention  is  applied--that  unique  condition  being  when  the  vari- 
ables represent  arcs  exiting  the  network.  In  such  cases,  the 
variables  are  assigned  names  in  the  form  XNnr.,  where  N indicates 
the  final  year  and  nn  is  the  specialty  or  node  number  (see  example 
at  bottom  of  Figure  V-13).  Names  in  this  form  appear  only  in  those 
cases  where  the  input  cost  (the  coefficient  of  a variable  in  the 
objective  function)  has  a value  other  than  zero. 


TABLE  D-1,  Correlation  of  Naming 
and  Constraint  Types 


Convention  Formats 


Mil  lliOtO 


Mm 

cohterxatlon 

COW  - teerythlng  that  goes  Into  • 
nod*  mult  90  out . 

N/A 

N It  normal  Id*nt1fl*r.  W It  tub- 
sjltuted  for  N idien  the  year  It 
MnnnOOZO  may  appear  In  any 
segment  except  LT 

Example:  NFllTREQ 

Node 

capacities 

NfllCREQ 

TREO  - total  capacity  (for  the  current 
grade  plus  the  unfilled  higher  grade) 

CREQ  - capacity  for  the  unfilled 
nlghtr  grade  requirements  only 

N/A 

Exaxple:  N01 1C  INC 

FORMAT  2 

Flow 

control 

CINC  - control  of  T arc  when  "from" 
and  "to"  tpedaltlet  are  Identical 

Euirie:  Will  Inc 

11NC  - control  of  I arc  ohon  ’from" 
aST'to"  tpoclaltloa  are  Identical 

Example:  HVlllINC 

MnnnltNC  It  uted  In  CPT  segment  only, 
to  control  *W*nnn  arcs  mhere  "from" 
and  “to"  tpedaltlet  are  Identical 

a nnnnn 

(R)  (I  arc) 

Example:  R?U?1 

R-remed  rows  restrict  th#  flow  In 
* arcs 

FORMAT  3 
aaa  nnnnn 

(NES)  (T  arc) 

Example-.  ttC30ii?i 

RES-named  rows  restrict  the  flow  In 
* arcs 


FORMAT  4 


K«y  Ire 
relationship 


Control 
of  Input 


aa  nnnn 

(UR)  /spec\ 

Im'  7 

Example:  UR1171 

UR-named  rows  are  constraints  upon 
the  location  of  officers  with  the 
two  specialties  of  the  pair 

Example:  W011UBSG  FORMAT  5 

UBSG  - upper  limit  on  number  entering  aaaaaaa 

w'tn  specialty  nn  as  a primary  or 

alternate  of  grade  beinq  processed  (TOTAUTH) 

(applies  to  field  grade  segments  only) 

Example  TOTAUTH 

Total  nianber  of  officers  authorized 
in  this  qrade  segment  at  Tj 
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